P
Peter
Currently I'm using the method below, is there someting more efficient?:
Imports System.IO
Public Class CountLine
Public Shared Function CountLines(ByVal FileName As String) As Integer
Dim fs As IO.FileStream
Dim sr As IO.StreamReader
Dim Result As Integer
Try
fs = New IO.FileStream( _
FileName, IO.FileMode.Open, _
IO.FileAccess.Read, IO.FileShare.Read _
)
sr = New IO.StreamReader(fs)
Do
If sr.ReadLine Is Nothing Then Exit Do
Result += 1
Loop
Return (Result)
Catch
Result = 0
End Try
End Function
End Class
Imports System.IO
Public Class CountLine
Public Shared Function CountLines(ByVal FileName As String) As Integer
Dim fs As IO.FileStream
Dim sr As IO.StreamReader
Dim Result As Integer
Try
fs = New IO.FileStream( _
FileName, IO.FileMode.Open, _
IO.FileAccess.Read, IO.FileShare.Read _
)
sr = New IO.StreamReader(fs)
Do
If sr.ReadLine Is Nothing Then Exit Do
Result += 1
Loop
Return (Result)
Catch
Result = 0
End Try
End Function
End Class