stuck in a loop

Hi

I try to use this piece of code, but the page seems to get stuck in the loop. What am I doing wrong here?

 Function NumberOfLinesInFile()
 Dim path As String = Server.MapPath("row.txt")
 Dim sr As StreamReader = New StreamReader(path)
 Dim i As Integer
 i = 0
 Do While sr.Peek() >= 0
 i = i + 1
 Loop
 sr.Close()
 Return i
 End Function

Regards

Mhello, what if sr.Peek() is always >= 0 ? check the values returned by sr !!!
The Peek function does not move to the next character, it only consumes it. Try using the sr.Read() instead.

hope this helps,

sivilian