Last line number in a text file (2002/SP3)

Topic

New Reply

Is there a way to get the total number of lines in a text file with out reading the whole file line by line, ie, what’s the last line number?

Reply | Quote

Replies

You could open the file in Word, and get ActiveDocument.Paragraphs.Count, or open the file in Excel, and retrieve ActiveSheet.UsedRange.Rows.Count.

Reply | Quote

Thanks Hans. But is there a way to do this without opening the text file directly in Word or Excel. Is there a shell command that looks at the file and gives you the number of lines/rows?

Reply | Quote

Not as far as I know. Text files are just that – they don’t contain any metadata.

Reply | Quote

Good info. Thank you Jerry and Hans.

Reply | Quote

You could try this piece of code in an excel workbook assuming the file is in a fixed location

Sub CountTextFile()

Dim filenum As Integer
Dim count As Long
Dim tmp As String
filenum = FreeFile
Open “c:test.txt” For Input As filenum
Do While Not EOF(filenum)
Line Input #filenum, tmp$
count = count + 1
Loop
Close #filenum

MsgBox count
End Sub

Reply | Quote