sir Yomet

help me sir i'm stuck with my project...my problem is how to open a multiple text file and load it to a single master file...i already have the code how to read multiple text file but the problem is when i write the text file it returns the file name that i open i.e. i open in "C:\textlog\" the file name is text1, text2, text3. it returns the file name with .txt at the end of the file, what i want to happen is to put the content of the all text files that i open in one master file....here's my sample code sir

Help with Code Tags

(Toggle Plain Text)

Private Sub Form_Load()
  Const START_PATH = "C:\Textlog\"
   Dim sFileName As String
   Dim sBuffer As String
   Dim iFile As Integer

   sFileName = Dir$(START_PATH & "*.txt")
   Do While Len(sFileName) > 0
      'Open/Read and Close
      iFile = FreeFile
      Open START_PATH & sFileName For Input As iFile
      sBuffer = Input(LOF(iFile), iFile)
      'Close iFile
      'Replace all occurances
      'Open/Write and close
      iFile = FreeFile
      Open "C:\output.txt" & sFileName For Output As iFile
      Print #iFile, sBuffer
      Close iFile
      'Get the next file
      sFileName = Dir$
   Loop
  End Sub

Private Sub Form_Load() Const START_PATH = "C:\Textlog\" Dim sFileName As String Dim sBuffer As String Dim iFile As Integer sFileName = Dir$(START_PATH & "*.txt") Do While Len(sFileName) > 0 'Open/Read and Close iFile = FreeFile Open START_PATH & sFileName For Input As iFile sBuffer = Input(LOF(iFile), iFile) 'Close iFile 'Replace all occurances 'Open/Write and close iFile = FreeFile Open "C:\output.txt" & sFileName For Output As iFile Print #iFile, sBuffer Close iFile 'Get the next file sFileName = Dir$ Loop End Sub

-----------------------------------------------------------
or do you have any idea how to insert a code to open a multiple text file
the code that you give to me sir, it's working nice, but again sir, it allows to open a 1 text file at a time...
my text files is located at "C:\textlog" please help with this sir, i don't have any idea to fix this sir..

Help with Code Tags

(Toggle Plain Text)

Dim inFile As Integer
    Dim InLine As String
    Dim data() As String
    Dim fields As Integer
    Dim sFile As String
    'sFile = txtFile.Text
    sFile = Text1.Text
    inFile = FreeFile

    Open sFile For Input As #inFile
    Set conn = New ADODB.Connection
    conn.Open "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=localhost;" & " DATABASE=time_and_attendance;" & "UID=root;PWD=admin; OPTION=3"
    While Not EOF(inFile)
        Line Input #inFile, InLine
        If InStr(InLine, "Event:Access") > 0 Then
        data() = Split(InLine)
        fields = UBound(data())
             
        Set rs = New ADODB.Recordset
        squery = "": squery = "Select * from tblattendance where Date='" & data(0) & "' AND CardNumber='" & Card(data(5)) & "'"
        rs.Open squery, conn
        If rs.EOF Then
        conn.Execute "INSERT INTO tblattendance (Date, CardNumber, TimeIn) " & _
                     "VALUES ('" & data(0) & "', " & _
                          "'" & Card(data(5)) & "', " & _
                           "'" & Format(Left(data(1), 8), "hh:mm:ss AM/PM") & "')"
                           
        
        Else
            conn.Execute "UPDATE tblattendance set TimeOut = '" & Format(Left(data(1), 8), "hh:mm:ss AM/PM") & "'  where Date='" & data(0) & "' AND CardNumber='" & Card(data(5)) & "'"
        End If
        rs.Close
        Set rs = Nothing
        End If
    Wend

    MsgBox "Record successfully saved       ", vbInformation + vbOKOnly, "Record Saved"
    Unload Me
    Me.Show 1
    Close #inFile
    Exit Sub 

Dim inFile As Integer Dim InLine As String Dim data() As String Dim fields As Integer Dim sFile As String 'sFile = txtFile.Text sFile = Text1.Text inFile = FreeFile Open sFile For Input As #inFile Set conn = New ADODB.Connection conn.Open "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=localhost;" & " DATABASE=time_and_attendance;" & "UID=root;PWD=admin; OPTION=3" While Not EOF(inFile) Line Input #inFile, InLine If InStr(InLine, "Event:Access") > 0 Then data() = Split(InLine) fields = UBound(data()) Set rs = New ADODB.Recordset squery = "": squery = "Select * from tblattendance where Date='" & data(0) & "' AND CardNumber='" & Card(data(5)) & "'" rs.Open squery, conn If rs.EOF Then conn.Execute "INSERT INTO tblattendance (Date, CardNumber, TimeIn) " & _ "VALUES ('" & data(0) & "', " & _ "'" & Card(data(5)) & "', " & _ "'" & Format(Left(data(1), 8), "hh:mm:ss AM/PM") & "')" Else conn.Execute "UPDATE tblattendance set TimeOut = '" & Format(Left(data(1), 8), "hh:mm:ss AM/PM") & "' where Date='" & data(0) & "' AND CardNumber='" & Card(data(5)) & "'" End If rs.Close Set rs = Nothing End If Wend MsgBox "Record successfully saved ", vbInformation + vbOKOnly, "Record Saved" Unload Me Me.Show 1 Close #inFile Exit Sub