FreeFile[(rangenumber)] 

可选的参数 rangenumber 是一个 Variant，它指定一个范围，以便返回该范围之内的下一个可用文件号。指定 0（缺省值）则返回一个介于 1 – 255 之间的文件号。指定 1 则返回一个介于 256 – 511 之间的文件号。 

说明 

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


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

Dim MyIndex, FileNumber 
For MyIndex = 1 To 5  ’ 循环五次。 
  FileNumber = FreeFile  ’ 取得未使用的文件号。 
  Open "TEST" & MyIndex For Output As #FileNumber  ’ 创建文件名。 
  Write #FileNumber, "This is a sample."  ’ 输出文本至文件中。 
  Close #FileNumber  ’ 关闭文件。 
Next MyIndex 


Variant 数据类型 
一种特殊的数据类型，可以包含数值、字符串或日期数据，还包含自定义类型和特殊数值 Empty 和 Null。Variant 数据类型有 16 字节的数值存储大小，可以包含的数据可达 Decimal 的范围，或 22- 字节( 加上字符串长度 ) 的字符存储大小，而且可存储任何字符文本。VarType 函数定义了如何处理 Variant 中的数据。对所有变量，如果没有明确声明它们是其它数据类型，则它们都变成 Variant 数据类型。