FreeFile関数

現在使われていないファイル番号を返し、その番号を予約します。

書式
FreeFile

戻り値
30～63の整数を返します。

参照
AOpen, BOpen, ROpen, UOpen, WOpen, Close

FreeFile関数使用例

Integer fileNum, i, j

fileNum = FreeFile
WOpen "TEST.DAT" As #fileNum
For i = 0 To 100
    Print #fileNum, i
Next i
Close #fileNum

fileNum = FreeFile
ROpen "TEST.DAT" As #fileNum
For i = 0 to 100
    Input #fileNum, j
    Print "data = ", j
Next i
Close #fileNum