CodeItBetter Programming Another VB Programming Blog

'Text File Handling - How to count number of lines in a text file
Public Function CountLineInTxtFile(ByVal strTxtFilePath As String) As Integer
    Dim strTxt As String
    Dim strLines() As String
 
    'Open the text file
    On Error GoTo CountLineInTxtFile_Error
 
    Open strTxtFilePath For Input As #1
    'load the text file in strTxt variable
    strTxt = Input(LOF(1), 1)
    'close the text file
    Close #1
 
    'store the lines
    strLines = Split(strTxt, vbCrLf)
 
    CountLineInTxtFile = UBound(strLines) - LBound(strLines)
 
    On Error GoTo 0
    Exit Function
 
CountLineInTxtFile_Error:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure " &_
        "CountLineInTxtFile of Module Module1"
End Function