通过

FileSystem.FreeFile 方法

  • 参考

定义

命名空间:
Microsoft.VisualBasic
程序集:
Microsoft.VisualBasic.Core.dll
程序集:
Microsoft.VisualBasic.dll
Source:
FileSystem.vb
Source:
FileSystem.vb
Source:
FileSystem.vb

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

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 提供尚未使用的文件编号。

适用于

另请参阅