構文
Object.Attributes
Attributes・・・・指定したObjectに属性を設定・取得します。
Fileオブジェクト、Folderオブジェクトへ属性を設定・取得します。
| 値 | 属性 | 備考 |
| 0 | 標準ファイル | |
| 1 | 読み取り専用ファイル | |
| 2 | 隠しファイル | |
| 4 | システムファイル | |
| 8 | ディスクドライブボリュームラベル | 取得のみ |
| 16 | フォルダまたはディレクトリ | 取得のみ |
| 32 | アーカイブファイル | |
| 64 | リンクまたはショートカット | 取得のみ |
| 128 | 圧縮ファイル | 取得のみ |
Attributesプロパティのサンプルコード
Public Sub sample()
'■FileSystemObjectの宣言
Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
'■フォルダの属性を取得・設定
Debug.Print fso.GetFolder("C:\sample").Attributes
fso.GetFolder("C:\sample").Attributes = 1
'■ファイルの更新日時を取得・設定
Debug.Print fso.GetFile("C:\sample\sample.txt").Attributes
fso.GetFile("C:\sample\sample.txt").Attributes = 1
End Sub
注意点
- 複数の属性を設定する場合は、値を足します。
- 例）「読み取り専用」と「隠しフォルダ」を設定→ Attributes = 1 + 2
コメント