FileSystem.FreeFile 方法

定義

命名空間:
Microsoft.VisualBasic
組件:
Microsoft.VisualBasic.dll

回傳 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 提供尚未被使用的檔案號碼。

適用於

另請參閱