FreeFile 函数

更新：2007 年 11 月

返回一个 Integer 值，表示可由 FileOpen 函数使用的下一个文件号。

Public Function FreeFile() As Integer

异常

如果正在升级使用非结构化错误处理方式的 Visual Basic 6.0 应用程序，请参见“错误号”一列。（您可以根据 Number 属性（Err 对象） 比较错误号。） 然而，如果可能，应当考虑用 Visual Basic 的结构化异常处理概述 替换这种错误控制。

备注

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

示例

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

Dim count As Integer
Dim fileNumber As Integer
For count = 1 To 5   
   fileNumber = FreeFile()
   FileOpen(fileNumber, "TEST" & count & ".TXT", OpenMode.Output)
   PrintLine(fileNumber, "This is a sample.")
   FileClose(fileNumber)
Next

智能设备开发人员说明

不支持此函数。

要求

命名空间：Microsoft.VisualBasic

**模块：**FileSystem

**程序集：**Visual Basic 运行库（在 Microsoft.VisualBasic.dll 中）

请参见

参考

FileOpen 函数

IOException

其他资源

写入文件 (Visual Basic)