投稿日 | : 2003/06/09(Mon) 21:09 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: 動的配列でファイルの入出力・削除 |
i の値が1個多くなっているからではないでしょうか?
一度(2箇所共)下記のようにして試してみたらどうでしょう。
i = -1
If CHKHostName = True Then
Open HostFileName For Binary As #FileNo
While Not EOF(FileNo)
i = i + 1
ReDim Preserve Host(i) As InformationHost
Get #FileNo, , Host(i)
Wend