Counting line with ASP/FSO

[weee]

Is there any I can count the lines in a html/asp/php/txt file while using FSO?

[russell]

Dim fso
Dim tst
Dim lineCount
Dim str

lineCount = 0
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set tst = fso.OpenTextFile(filePathHere, 1, false)


While Not tst.AtEndOfStream
str = tst.ReadLine
lineCount = lineCount + 1
Wend

tst.close
Set tst = Nothing
Set fso = Nothing

Response.Write lineCount

[weee]

thanks!