VBAファイルやフォルダー属性の取得と設定(Attributes)

FileオブジェクトとFolderオブジェクトのAttributesプロパティについてです。

1 Attributesプロパティ
2 VBAサンプル

Attributesプロパティ

概要

ファイルやフォルダーの属性を設定または返します。

構文

ファイルの場合：FileObject.Attributes[newattributes]

フォルダの場合：FolderObject.Attributes[newattributes]

[ ]は省略可

Attributesプロパティの引数

引　数	必須 / 省略可	詳　細
属性 (newattributes)	省略可	ファイルやフォルダー属性の取得または設定。

設定

定　数	値	詳　細
Normal	0	標準のファイル。属性は設定されません。
ReadOnly	1	読み取り専用ファイル。属性は、読み取り/書き込み可能です。
Hidden	2	隠しファイル。属性は、読み取り/書き込み可能です。
System	4	システムファイル。属性は、読み取り/書き込み可能です。
Volume	8	ディスクドライブのボリュームラベル。属性は読み取り専用です。
Directory	16	フォルダーまたはディレクトリ。属性は読み取り専用です。
Archive	32	前回のバックアップ以降に変更されているファイル。属性は、読み取り/書き込み可能です。
Alias	1024	リンクまたはショートカット。属性は読み取り専用です。
Compressed	2048	圧縮ファイル。属性は読み取り専用です。

VBAサンプル

属性の取得

Sub 取得()

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

Dim f As File

Set f = fso.GetFile("D:\sample\test.xlsx")

'属性を取得

Debug.Print f.Attributes

End Sub

属性の設定

Sub 設定()

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

Dim f As File

Set f = fso.GetFile("D:\sample\test.xlsx")

'読み取り専用属性を設定

f.Attributes = ReadOnly

End Sub

属性の設定解除

Sub 設定解除()

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

Dim f As File

Set f = fso.GetFile("D:\sample\test.xlsx")

'読み取り専用属性を解除

f.Attributes = f.Attributes - ReadOnly

End Sub

属性を複数設定

Sub 複数設定()

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

Dim f As File

Set f = fso.GetFile("D:\sample\test.xlsx")

'読み取り専用属性と隠しファイル属性を設定

f.Attributes = f.Attributes + ReadOnly + Hidden

End Sub

属性の複数解除

Sub 複数設定解除()

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

Dim f As File

Set f = fso.GetFile("D:\sample\test.xlsx")

'読み取り専用属性と隠しファイル属性を解除

f.Attributes = f.Attributes - ReadOnly - Hidden

End Sub