投稿日 | : 2003/04/13(Sun) 02:11 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: テキストファイルの行数カウント |
ここの FileSystemObject関係 や逆引きヘルプを見て下さい。
Dim Fso As New FileSystemObject
Dim MaxLine As Long
'テキストファイルは別途ご用意下さい。
TxtFile = App.Path & "\test.txt"
'総行数を取得
MaxLine = Fso.OpenTextFile(TxtFile, ForAppending).Line