FileCountLines()

Conta o número de linhas em um arquivo.

Function FileCountLines(ByVal FileName)

Dim sStream
Dim iLines
Dim i, j, k

If Mid(FileName, 2, 1) <> ":" Then
FileName = Server.MapPath(FileName)
End If
sStream = ReadFile(FileName)

i = 1
j = 1
iLines = 0
k = Len(sStream)

Do While i <= k
i = InStr(i, sStream, vbCrLf)
If i = 0 Then Exit Do
iLines = iLines + 1
i = i + 2
Loop

If iLines > 0 Then iLines = iLines + 1
FileCountLines = iLines

End Function