100MB近い20万行のCSVファイルの行数を高速で取得しようと試みているのですが、
ループ処理でのカウントとFSOを使っての行数取得では遅すぎて手を拱いています。

FSO処理
FileDataCount = Fso.OpenTextFile(strPath, ForAppending).Line - 1
では約11秒です。

ループ処理
Do While Not EOF(FileNumber)
    Line Input #FileNumber, TextLine
    DataCount = DataCount + 1
Loop
でも約11秒です。

なにかよい手はありませんか？

> 100MB近い20万行のCSVファイルの行数を高速で取得しようと試みているのですが、

それだけ大きいファイルだと。
PC の性能を上げるか、ファイルの作成・保存時にどこかに行数を持たせておく位しか
ないのではないでしょうか？

> > 100MB近い20万行のCSVファイルの行数を高速で取得しようと試みているのですが、
>
> それだけ大きいファイルだと。
> PC の性能を上げるか、ファイルの作成・保存時にどこかに行数を持たせておく位しか
> ないのではないでしょうか？

早速のお返事ありがとうございます。

プログラムの問題ではないと分かればすっきりしました。

ありがとうございました。