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