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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: テキストファイル：データを書き込む（Write # ステートメント）

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

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

GetOpenFilename メソッドファイル名を取得するための、「ファイル …

: ファイルの検索・フォルダ内のファイル一覧を取得（Dir 関数）

Dir 関数 Dir 関数で、ファイルの存在を確認したり、指定したフォルダ内のフ …

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

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

: Excelでテキストファイルを開く（OpenText メソッド）

Excelでテキストファイルを開く OpenText メソッドで、テキストファイ …

: テキストファイル（Open ステートメント・Close ステートメント）

新規ブックを開かずにテキストファイルを開く OpenText ステートメントを …

: ディレクトリまたはフォルダの作成（MkDir ステートメント）

ディレクトリまたはフォルダの作成新しいディレクトリまたはフォルダを作成するには …

: 「ファイル」ダイアログボックスを表示・設定（FileDialog オブジェクト）

FileDialog オブジェクト FileDialog オブジェクトのメソッ …

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

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

: ファイルのタイムスタンプを取得（FileDateTime 関数）

ファイルのタイムスタンプを取得ファイルのタイムスタンプを取得するには、File …

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