FreeFile

返回一个Integer，表示Open语句可用的下一个文件号。

语法：FreeFile [ ( rangenumber ) ]

rangenumber

可选 Variant，指定返回下一个空闲文件号的范围。指定0（默认）返回1--255范围内的文件号。指定1返回256--511范围内的文件号。

使用FreeFile提供一个尚未使用的文件号。

示例

本示例使用FreeFile函数返回下一个可用的文件号。在循环中打开五个文件进行输出，并向每个文件写入一些示例数据。

Dim MyIndex, FileNumber
For MyIndex = 1 To 5    ' Loop 5 times.
    FileNumber = FreeFile    ' Get unused file number.
    Open "TEST" & MyIndex For Output As #FileNumber    ' Create file name.
    Write #FileNumber, "This is a sample."    ' Output text.
    Close #FileNumber    ' Close file.
Next MyIndex