注: Microsoft Jet Expression Service がサンドボックス モードで実行されている場合 (安全でない可能性がある式の評価は行われません)、このトピックで説明する関数、メソッド、オブジェクト、またはプロパティは無効です。 サンドボックス モードの詳細については、ヘルプで "サンドボックス モード" を検索してください。
Open ステートメントを使用して開かれたファイルのモードを表す Long データ型の値を返します。
構文
FileAttr ( filenumber , returntype )
FileAttr 関数の構文には、次の引数があります。
|
引数 |
説明 |
|
filenumber |
必ず指定します。 整数データ型の値を指定します。 任意の有効なファイル番号を指定します。 |
|
returntype |
必須。 整数型を指定します。 返す情報の種類を示す数値。 ファイル モードを示す値を返すには、1 を指定します。 16 ビット システムでのみ、オペレーティング システム ファイル ハンドルを取得するには、2 を指定します。 returntype 2 は 32 ビット システムではサポートされていないため、エラーが発生します。 |
戻り値
returntype 引数に 1 を指定すると、ファイルのアクセス モードを示す次の戻り値が返されます。
|
モード |
値 |
|
入力 |
1 |
|
出力 |
2 |
|
ランダム |
4 |
|
追加 |
8 |
|
バイナリ |
32 |
例
注: 次の例は、Visual Basic for Applications (VBA) モジュールでのこの関数の使用方法を示しています。 VBA の使用方法の詳細については、[検索] の横にあるドロップダウン リストで [開発者用リファレンス] を選び、検索ボックスに検索する用語を入力します。
この例では、 FileAttr 関数を使用して、開いているファイルのファイル モードとファイル ハンドルを返します。 ファイル ハンドルは、16 ビット システムでのみ返されます。32 ビット システムでは、2 を 2 番目の引数として渡すとエラーが発生します。
Dim FileNum, Mode, Handle
FileNum = 1 ' Assign file number.
Open "TESTFILE" For Append As FileNum ' Open file.
Mode = FileAttr(FileNum, 1) ' Returns 8 (Append file mode).
Handle = FileAttr(FileNum, 2) ' Returns file handle.
Close FileNum ' Close file.
