CodeItBetter Programming Another VB Programming Blog

'Text File Handling - How to find last 120 lines in a text file
Private Sub Command1_Click()
    Dim strVBlogfile$, strText$, i&
    Dim arLines() As String
 
    strVBlogfile = "full path and name of your file goes in here"
 
    If Dir$(strVBlogfile) <> "" Then
        Open strVBlogfile For Input As #1
        'read entire file into string variable
        strText = Input(LOF(1), #1)
        Close #1
    End If
    'split text into array
    arLines = Split(strText, vbNewLine)
 
    'print what you need
    If UBound(arLines) > 120 Then
        For i = UBound(arLines) - 120 To UBound(arLines)
            Printer.Print arLines(i)
        Next i
    Else
        For i = 0 To UBound(arLines)
            Printer.Print arLines(i)
        Next i
    End If
End Sub