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 関数を使用して、次に使用可能なファイル番号を返します。 ループ内の出力用に 5 つのファイルが開かれ、一部のサンプル データがそれぞれに書き込まれます。

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を使用して、まだ使用されていないファイル番号を指定します。

適用対象

こちらもご覧ください