VB.NETでファイルの行数を取得する

記載されている内容は、自身の責任において行ってください。この記事により不具合が生じても一切責任は負いません。

ソース

  ''' <summary>
''' ファイルの行数を取得する。
''' </summary>
''' <param name="filePath">読み込むファイルパス</param>
''' <returns>行数</returns>
''' <remarks></remarks>
Public Function cntLineFromFile(ByVal filePath As String) As Long
Dim StReader As New System.IO.StreamReader(filePath)
Dim cnt As Long
While (StReader.Peek() >= 0)
StReader.ReadLine()
cnt += 1
End While
Return cnt
End Function

特記事項

特になし。