ファイル行数集計

今日は、ファイルの行数集計です。

非常にシンプルなサブルーチンです。

Public Sub 行数集計()
  Dim Rtn As Integer
  Dim wFNo As Integer
  Dim wCnt As Integer
  Dim wRec As String
  '実行確認メッセージ
  Rtn = MsgBox("行数集計を実行しますか？", vbQuestion + vbYesNo)
  If Rtn = vbNo Then
     Exit Sub
  End If
  'ファイル番号を取得する
  wFNo = FreeFile
  'CSVファイルをOPENする
  Open "C:\計算.csv" For Input As #wFNo
  wCnt = 0
  'ループ（繰り返し）の開始
  Do Until EOF(wFNo)
     'ファイルから1行読み込む
     Line Input #wFNo, wRec
     wCnt = wCnt + 1
  'ループの終了
  Loop
  'ファイルをクローズする
  Close
  '実行結果確認メッセージ
  MsgBox wCnt & "行ありました。", vbInformation + vbOKOnly
End Sub

それでは！