共用方式為


FileSystem.FreeFile 方法

定義

傳回 Integer 值,表示可供 FileOpen 函式使用的下一個可用的檔案編號。

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

傳回

整數值,表示可供 FileOpen 函式使用的下一個可用檔案編號。

例外狀況

使用中的檔案超過 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 提供尚未使用的檔案編號。

適用於

另請參閱