ファイルの属性を取得する【GetAttr関数】【ExcelVBA】

構文
GetAttrステートメントのサンプルコード
注意点
関連記事

構文

GetAttr （pathname）

pathname・・・・・・対象のファイル名をフルパスで指定。

GetAttr関数はファイルの属性を取得します。ファイル属性を設定する場合は SetAttr関数 です。

属性の判断は下記の定数を使用します。

属性を表す定数
定数	値	内容
vbNormal	0	通常ファイル
vbReadOnly	1	読み取り専用
vbHidden	2	隠しファイル
vbSystem	4	システムファイル
vbDirectory	16	ディレクトリ(フォルダ)
vbArchive	32	アーカイブ

GetAttrステートメントのサンプルコード

Public Sub sample()
    Dim tmp As Long
    
    '■ファイルの属性を取得
    tmp = GetAttr("C:\vba\sample.xlsx")

    '■各属性のチェック。複数設定されていれば複数取得する。
    If tmp And vbReadOnly Then Debug.Print "読み取り専用"
    If tmp And vbHidden Then Debug.Print "隠しファイル"
    If tmp And vbSystem Then Debug.Print "システムファイル"
    If tmp And vbDirectory Then Debug.Print "フォルダ"
    If tmp And vbArchive Then Debug.Print "アーカイブ"
End Sub