ファイル属性の取得（GetAttr 関数）
ファイルやフォルダ（ディレクトリ）の属性を調べるには GetAttr 関数を使用します。
【書式】
＜取得＞
GetAttr ( pathname )
引数・戻り値
- pathname ・・・ 属性を調べたいファイル、ディレクトリまたはフォルダの名前を文字列式で指定します。パスやドライブを含めることもできます。
- 戻り値 ・・・ VbFileAttribute 列挙型 の定数の値の合計値。
定数
値
内容
vbNormal
0
標準
vbReadOnly
1
読み取り専用
vbHidden
2
非表示
vbSystem
4
システムファイル（Macintosh では使用不可）
vbDirectory
16
ディレクトリまたはフォルダ
vbArchive
32
前回のバックアップ以降に変更されているファイル（Macintosh では使用不可）
vbAlias
64
指定したファイル名がエイリアスとして設定されているファイル（Macintosh のみ）
設定されている属性を確認するには、And 演算子を使用してビット単位の比較を行います。GetAttr 関数から返される値と対象の個々のファイル属性の値を比較し、結果が 0 以外の場合は、指定したファイルに対してその属性が設定されています。
- pathname ・・・ 属性を調べたいファイル、ディレクトリまたはフォルダの名前を文字列式で指定します。パスやドライブを含めることもできます。
- 戻り値 ・・・ VbFileAttribute 列挙型 の定数の値の合計値。
定数 値 内容 vbNormal 0 標準 vbReadOnly 1 読み取り専用 vbHidden 2 非表示 vbSystem 4 システムファイル（Macintosh では使用不可） vbDirectory 16 ディレクトリまたはフォルダ vbArchive 32 前回のバックアップ以降に変更されているファイル（Macintosh では使用不可） vbAlias 64 指定したファイル名がエイリアスとして設定されているファイル（Macintosh のみ）
設定されている属性を確認するには、And 演算子を使用してビット単位の比較を行います。GetAttr 関数から返される値と対象の個々のファイル属性の値を比較し、結果が 0 以外の場合は、指定したファイルに対してその属性が設定されています。
ファイル属性の設定（SetAttr ステートメント）
ファイルやフォルダ（ディレクトリ）の属性を設定するには、SetAttr ステートメントを使用します。
【書式】
＜設定＞
SetAttr pathname, attributes
引数・戻り値
- pathname ・・・ ファイル、ディレクトリまたはフォルダの名前を文字列式で指定します。パスやドライブを含めることもできます。
- attributes ・・・ ファイル属性を指定する VbFileAttribute 列挙型の定数の合計値を指定します。
開いているファイルの属性を設定しようとすると、エラーが発生します。
- pathname ・・・ ファイル、ディレクトリまたはフォルダの名前を文字列式で指定します。パスやドライブを含めることもできます。
- attributes ・・・ ファイル属性を指定する VbFileAttribute 列挙型の定数の合計値を指定します。
開いているファイルの属性を設定しようとすると、エラーが発生します。
GetAttr 関数・SetAttr ステートメント 使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 |
Sub Sample_GetAttr() '「tmp」の属性が、vbDirectory（フォルダ）かどうかを確認 MsgBox GetAttr("C:\Documents\tmp") And vbDirectory End Sub |
実行結果
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 |
Sub Sample_SetAttr() '「memo01.txt」ファイルを「隠しファイル」「読み取り専用」に設定 SetAttr "C:\Documents\memo01.txt", vbHidden + vbReadOnly '属性を表示 MsgBox GetAttr("C:\Documents\memo01.txt") End Sub |
実行結果
