ファイル操作に関して、こんなことできますでしょうか (ID:121780)

名前

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

本文 テキストファイルをOPENして、最終行まで読み込んで、CLOSEするという 処理を『同じファイル』に対して何回も行いたいのですが、 上手くいきません。 以下のような関数を何回も呼び出す形なのですが、 二回目になると★印のところでループしないで処理を抜けてしまいます。 ------------------------------------------------------------------ Private Function Sumple_Src() As Boolean 〜変数定義省略〜 l_intFileNo = FreeFile l_strFileName = "AAA.txt" Open l_strFileName For Input As l_intFileNo Do While Not EOF(l_intFileNo) ←★ l_strData = l_strData & Input(1, l_intFileNo) Loop Close l_intFileNo 〜省略〜 End Function ------------------------------------------------------------------ 一回目にこの関数を呼び出すときは ちゃんと最終行まで読み込めるのですが、 二回目にこの関数をよびだすと、★印のところで一回だけループして 抜けてしまいます。 二回目になると読込位置が既にEOFになっているような感じです。 ファイルを一旦クローズしても、「最終行まで読み込んだ」という 情報がメモリとかどっかに残っているということなのでしょうか？ 理由が分からず困っています。 また、ならば読込位置を一旦ファイルの先頭に戻すという処理を 入れてあげればいいのかと考えましたが、どういうソースを書けば いいのか、わからない状態です。 どなたか教えていただけないでしょうか よろしくお願いします。