File Path VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. File Path
  4. Read a text file, skipping the Total lines
Sub textDemo()
    Open "C:\Invoice.txt" For Input As #1
    Do Until EOF(1)
        Line Input #1, Data
        If Not (Data, 5) = "TOTAL" Then
            Debug.Print Data
        End If
    Loop
    Close #1
End Sub