ReDim Preserveについて。 (ID:106031)

名前

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

本文 intIndex = 0に初期化されていないみたいですけど、 予想ですが、その状態でEraseだけ行っていませんか？ Do Untilの前に初期化を追加し、RedimにPreserveを付けておけば2回目以降も正常に動作すると思われます。 あと、気がついたことですが、せっかくFreeFileで使用可能なファイル番号を獲得しているのに、ファイル番号1で固定になっていますね。