FreeFile 関数

適用先
Access for Microsoft 365 Access 2021 Access 2019 Access 2016

注

Microsoft Jet Expression Service がサンドボックス モードで実行されている場合 (安全でない可能性がある式の評価は行われません)、このトピックで説明する関数、メソッド、オブジェクト、またはプロパティは無効です。 サンドボックス モードの詳細については、ヘルプで "サンドボックス モード" を検索してください。

Open ステートメントで使用できる次のファイル番号を表す Integer を返します。

構文

FreeFile[(rangenumber)]

オプションの rangenumber 引数は、次のフリー ファイル番号を返す範囲を指定するバリアント型 (Variant) です。 0 (既定) を指定すると、範囲 1 ～ 255 のファイル番号が返されます (1 と 255 も含む)。 1 を指定すると、256 ～ 511 の範囲でファイル番号が返されます。

解説

FreeFile を使用し、まだ使用されていないファイル番号を提供します。

例

注

次の例は、Visual Basic for Applications (VBA) モジュールでのこの関数の使用方法を示しています。 VBA の使用方法の詳細については、[検索] の横にあるドロップダウン リストで [開発者用リファレンス] を選び、検索ボックスに検索する用語を入力します。

この例では、 FreeFile 関数を使用して、次に使用可能なファイル番号を返します。 ループ内の出力用に 5 つのファイルが開かれ、一部のサンプル データがそれぞれに書き込まれます。

Dim MyIndex, FileNumber
For MyIndex = 1 To 5    ' Loop 5 times.
    ' Get unused file number.
    FileNumber = FreeFile
    ' Create file name.
    Open "TEST" & MyIndex For Output As #FileNumber
    ' Output text.
    Write #FileNumber, "This is a sample."
    ' Close file.
    Close #FileNumber
Next MyIndex