FileSystem.FreeFile 方法

定义

命名空间:
Microsoft.VisualBasic
程序集:
Microsoft.VisualBasic.dll

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

public:
 static int FreeFile();
public static int FreeFile();
static member FreeFile : unit -> int
Public Function FreeFile () As Integer

返回

Int32

一个整数值，表示可供函数使用的 FileOpen 下一个文件编号。

例外

IOException

正在使用超过 255 个文件。

示例

此示例使用 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

注解

用于 FreeFile 提供尚未使用的文件编号。

适用于

另请参阅