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

Visual Basic 4 / 5 / 6 Syntax (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

Visual Basic 4 / 5 / 6 Syntax (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