VB6.0のOpenイベントでエラーがでます

質問

VB6.0で以下のOpenコードの部分でエラーが出ます。
---------------------------------------------
Dim intFileNumber As Integer
Dim intFreeFile As Integer
intFileNumber = intFreeFile

Open strDFpath & strDFname For Input As #intFileNumber
Do Until EOF(intFileNumber)
Line Input #intFileNumber, strData_in
Loop
Close #intFileNumber
---------------------------------------------
エラー内容「実行時エラー52　ファイル名、または番号が不正です」
エラー時のintFileNumberを見ますと「0」です。

上記コードの「intFileNumber」を「1」に置換して実行するとエラーがでません。
変数の宣言が間違っているのでしょうか？

考えられる原因があれば教えていただけませんでしょうか。

回答No.1

s-uzen · ベストアンサー

VB6、しばらく遠ざかっているので・・・

Dim intFreeFile As Integer　← この行は不要
intFileNumber = intFreeFile　← intFreeFileは、単にFreeFileなのでは。

FreeFile()はファイル番号の取得関数なので、Dim intFreeFile宣言でint変数にしているので初期値0となり、ファイル番号取得ができないのが理由。

お礼

ほんとうですね。ありがとうございます。

何年もVB/VBAをやっているのに、なぜこんなありえない間違いをしてしまったのか。なぜ気づかなかったのか。。。