Dim MyFile As String
Dim FNo As Long
Dim data() As String
Dim fields As Integer
Dim InLine As String
 
    MyFile = "C:\Textlog\1_attlog.dat"
    On Error Resume Next
    Open "C:\Andoks\" & Format(Date, "MMDDYYYY") & ".txt" For Output As #1
    FNo = FreeFile
    If Dir(MyFile, vbDirectory) <> "" Then
    Open MyFile For Input As FNo
     While Not EOF(FNo)
        Line Input #FNo, InLine
        data() = Split(InLine)
        fields = UBound(data())
        'Open "C:\Andoks\" & Format(Left(data(0), 10), "MMDDYYYY") & ".txt" For Output As #1
        'Back Up "" Print #1, Format(Right(data(0), 10), "YYYY/MM/DD") & " " & Left(data(1), 8)
        Print #1, Format(data(1), "YYYY/MM/DD") & " " & Left(data(2), 8) & "," & " " & "Event:Access," & " " & "Door:1," & " " & "Card No.:" & Format(Right(data(0), 5), "00000")
 
    Wend
    End If
    MsgBox "Attendance successfully downloaded       ", vbInformation + vbOKOnly, "Record Saved"
    Unload Me
    Me.Show
'close
    Close #FNo
    Close #1
Exit Sub