|
▼ひよっこ さん:
>▼SK63 さん:
>>▼ひよっこ さん:
>>
>>下の部分を動作させても Line 'にはNothingですが、、??
>>う〜ん 難しいですね。
>>
>>
>> 'ファイルを書き込みモードで読み込む
>> Set FSO = CreateObject("Scripting.FileSystemObject")
>> With FSO.OpenTextFile(TargetFile, 8)
>> '複数ファイルがある場合、ファイルの総行数を集計する
>> gCnt = gCnt + Line ★
>> .Close
>> End With
>>
>> Set FSO = Nothing
>
>Lineではなく、.Lineだとファイルの総行数を取得できるかと思います。
>With使ってるので><
>やはり処理速度にはファイルの容量がかかわっているようです;
>.Lineで取得するのは早いのですが、集計する際に時間がかかってしまうので
>どうしようもないのでしょうね;
>ご回答ありがとうございました!わざわざ動かして頂いたことでとても親身になっていただいたようでうれしかったです!
今確認すると、質問文がLineになってました・・・.どこいったんだろう・・・
すみません、Line→.Lineに読み替えてください;
|
|