Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

ファイル属性の取得・設定（GetAttr 関数・SetAttr ステートメント）

2015/12/23

ファイル属性の取得（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 以外の場合は、指定したファイルに対してその属性が設定されています。

ファイル属性の設定（SetAttr ステートメント）

ファイルやフォルダ（ディレクトリ）の属性を設定するには、SetAttr ステートメントを使用します。

【書式】

＜設定＞
SetAttr pathname, attributes

引数・戻り値

pathname ・・・ファイル、ディレクトリまたはフォルダの名前を文字列式で指定します。パスやドライブを含めることもできます。
attributes ・・・ファイル属性を指定する VbFileAttribute 列挙型の定数の合計値を指定します。

開いているファイルの属性を設定しようとすると、エラーが発生します。

GetAttr 関数・SetAttr ステートメント使用例

サンプルVBAソース

　
Sub Sample_GetAttr()

    '「tmp」の属性が、vbDirectory（フォルダ）かどうかを確認
    MsgBox GetAttr("C:\Documents\tmp") And vbDirectory

End Sub

1

2

3

4

5

6

7

8

　

Sub Sample_GetAttr()

'「tmp」の属性が、vbDirectory（フォルダ）かどうかを確認

MsgBox GetAttr("C:\Documents\tmp") And vbDirectory

End Sub

　

実行結果

サンプルVBAソース

　
Sub Sample_SetAttr()

    '「memo01.txt」ファイルを「隠しファイル」「読み取り専用」に設定
    SetAttr "C:\Documents\memo01.txt", vbHidden + vbReadOnly
    
    '属性を表示
    MsgBox GetAttr("C:\Documents\memo01.txt")

End Sub

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

　

実行結果

- Excel・ファイルの操作 Excel・ファイルの操作, GetAttr 関数, SetAttr ステートメント, VBA基本, VbFileAttribute 列挙型, エクセルVBA

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 「ファイルを開く」ダイアログボックス（FindFile メソッド）

FindFile メソッド「ファイルを開く」ダイアログボックスを表示します。G …

: 開いているファイルの現在の読み取り位置または書き込み位置を取得（Seek 関数）

Seek 関数 Open ステートメントで開いたファイル内の現在の読み取り位置 …

: 開いているファイルの読み取り位置または書き込み位置を設定（Seek ステートメント）

Seek ステートメント Open ステートメントで開いているファイルで、次に …

: テキストファイル：データを読み込む（Input # ステートメント）

Input # ステートメント Open ステートメントをシーケンシャル入力モ …

: Excel を終了する（Quit メソッド）

Excel を終了する（Quit メソッド） Quit メソッドを実行すると、E …

: テキストファイル：データを読み込む（Line Input # ステートメント）

Line Input # ステートメント Open ステートメントをシーケンシャ …

: 開いているファイルのサイズ・位置の取得（LOF 関数・Loc 関数）

LOF 関数 Open ステートメントにより開かれたファイルのサイズをバイト単 …

: 「名前を付けて保存」ダイアログボックスを表示（GetSaveAsFilename メソッド）

GetSaveAsFilename メソッド「名前を付けて保存」ダイアログボッ …

: Excel の組み込みダイアログボックス（Dialog, Dialogs）

Excel の組み込みダイアログボックスを表示 Dialog オブジェクトを使 …

: ファイルをコピー（FileCopy ステートメント）

FileCopy ステートメントファイルをコピーします。ただし、開いているファ …

PREV: ディレクトリまたはフォルダの削除（RmDir ステートメント）
NEXT: ファイルのタイムスタンプを取得（FileDateTime 関数）