２つめのファイルの読み出しについて (ID:124969)

名前

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

本文 vb6で開発しています。 FORM の LOAD 時に、２つのファイルを読んでいるのですが、同じことを順番になっているつもりなのに、２つめのファイルのLOOPのところでエラーが発生します。 '*** Read File 1 *** FileName = CurDir + "File1.txt" i = 0 Open FileName For Input As #1 Do Until EOF(1) Line Input #1, csvData ArrayData = Split(csvData, ",") -----略----- Loop Close #1 '*** Read File 2 *** FileName = CurDir + "File2.txt" i = 0 Open FileName For Input As #2 Do Until EOF(1) ←ここで、エラーが出る。 Line Input #2, csvData ArrayData = Split(csvData, ",") -----略----- Loop Close #2