Share via

FileSystem.FreeFile 方法

  • 參考

定義

命名空間:
Microsoft.VisualBasic
組件:
Microsoft.VisualBasic.Core.dll
組件:
Microsoft.VisualBasic.dll
來源:
FileSystem.vb
來源:
FileSystem.vb
來源:
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 提供尚未使用的檔案編號。

適用於

另請參閱