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