VB6 Open〜Close で行数を取得するには？ (ID:91514)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ＞Do Until EOF(intFileNo) ＞ i = i + 1 ＞Loop 【Line Input】で、一行のデータを取得することで 次の行へ、という意味もあるようです。 今、同じソースにて試したところ、無限ループしましたが 【Line Input】を入れることで回避できました。 以下にソースを記述します。 dim sDATA as string do until eof(iFileNo) Line Input #iFileNo,sDATA i = i + 1 Loop 以上です。