めめさん、こんにちは。

＞kaza1222さん、こんばんは。
＞
＞＞そこで、プログレスバーを実装しようと思ったのですが、
＞＞ファイルを読み込む前にファイルのデータ件数を
＞＞プログレスバーの分母に設定したいのです。
＞
＞FileSystemObject を使うのはいかがでしょうか。
＞以下、簡単なサンプルですがあげておきます。
＞参考になればよいのですが。
＞
＞OLEobject lo_fso
＞OLEobject lo_fsots
＞Long ll_rec
＞
＞lo_fso = CREATE  OLEObject
＞lo_fso.ConnectToNewObject(\"Scripting.FileSystemObject\")
＞lo_fsots = CREATE OLEObject
＞lo_fsots.ConnectToObject(\"TextStream\")
＞
＞lo_fsots = lo_fso.OpenTextFile(ファイル名, 8) // ForAppending
＞ll_rec = lo_fsots.Line
＞
＞MessageBox(\"結果\", \"レコード件数は \" +  String(ll_rec - 1) + \" 件です\")
＞
＞lo_fso.DisconnectObject()
＞lo_fsots.DisconnectObject()
＞
＞DESTROY lo_fso
＞DESTROY lo_fsots
＞
＞

お返事遅くなりました。
おぉぉFileSystemObjectなんてものがあるんですね。
大変参考になります。
ちょっと上記方法で実装うを検討してみたいと思います。
助かりました、ありがとうございます。