[RESOLVED] Counting Lines

[Cyber-Drugs]

Is there a function in VB.NET which will count how many files there are in a Text File? If not, does anyone know of some code I can use to do this?

Many thanks.

[EDIT]

Nevermind guys, I found this:

Dim sr As StreamReader = File.OpenText("file.txt")
Dim LineCount As Integer = 0
While Not (sr.ReadLine() Is Nothing)
LineCount += 1
End While

which works fine

[Parallax]

Public Function GetLineCount(Byval Filename As String) As Long
   Return New IO.StringReader("C:\MyTextFile.txt").ReadToEnd.Split(vbNewLine).GetUpperBound(0) + 1
End Function

Note that this doesn't check that the file exists, make sure it does before calling the function.