
FileオブジェクトとFolderオブジェクトのAttributesプロパティについてです。
Menu
Attributesプロパティ
概要
ファイルやフォルダーの属性を設定または返します。
構文
ファイルの場合:FileObject.Attributes[newattributes]
フォルダの場合:FolderObject.Attributes[newattributes]
[ ]は省略可
Attributesプロパティの引数
引 数 | 必須 / 省略可 | 詳 細 |
属性 | 省略可 | ファイルやフォルダー属性の取得または設定。 |
設定
定 数 | 値 | 詳 細 |
Normal | 0 | 標準のファイル。属性は設定されません。 |
ReadOnly | 1 | 読み取り専用ファイル。属性は、読み取り/書き込み可能です。 |
Hidden | 2 | 隠しファイル。属性は、読み取り/書き込み可能です。 |
System | 4 | システムファイル。属性は、読み取り/書き込み可能です。 |
Volume | 8 | ディスクドライブのボリュームラベル。属性は読み取り専用です。 |
Directory | 16 | フォルダーまたはディレクトリ。属性は読み取り専用です。 |
Archive | 32 | 前回のバックアップ以降に変更されているファイル。属性は、読み取り/書き込み可能です。 |
Alias | 1024 | リンクまたはショートカット。属性は読み取り専用です。 |
Compressed | 2048 | 圧縮ファイル。属性は読み取り専用です。 |
VBAサンプル
属性の取得
1 2 3 4 5 6 7 8 9 10 | 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 |
属性の設定
1 2 3 4 5 6 7 8 9 10 | 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 |
属性の設定解除
1 2 3 4 5 6 7 8 9 10 | 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 |
属性を複数設定
1 2 3 4 5 6 7 8 9 10 | 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 |
属性の複数解除
1 2 3 4 5 6 7 8 9 10 | 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 |