FileSystemObject:ファイル・フォルダの属性を取得または設定(Attributes プロパティ)
ファイル・フォルダの属性を取得または設定(Attributes プロパティ)
ファイルの属性を取得および設定するには、File オブジェクト の Attributes プロパティ を使用します。また、フォルダの属性を取得および設定するには、Folder オブジェクト の Attributes プロパティ を使用します。
<取得>
object.Attributes
<設定>
object.Attributes = newattributes
引数・戻り値
- object ・・・ File オブジェクト または、Folder オブジェクトを指定します。
- 戻り値 ・・・ FileAttributes 列挙型の定数の値
- newattributes ・・・ FileAttribute 列挙型の定数を指定します。
定数 値 内容 Normal 0 標準(属性は設定されません) ReadOnly 1 読み取り専用(取得設定可) Hidden 2 隠しファイル・隠しフォルダ(取得設定可) System 4 システムファイル(取得設定可) Volume 8 ディスクドライブボリュームラベル(取得のみ可) Directory 16 フォルダまたはディレクトリ(取得のみ可) Archive 32 アーカイブ(取得設定可) Alias 64 リンクまたはショートカット(取得のみ可) Compressed 128 圧縮ファイル(取得のみ可)
File オブジェクトに関しては、FileSystemObject:File オブジェクトを取得(GetFile) 、Folder オブジェクトに関しては、FileSystemObject:Folder オブジェクトの取得 を参照してください。
Attributes プロパティ 使用例
サンプルVBAソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Sub Sample_Attributes() Dim fso As New FileSystemObject Dim myFolder As Folder Dim mySubFolders As Folders Dim str As String Set mySubFolders = fso.GetFolder("C:\Documents\data3\").SubFolders 'フォルダ名(属性[値]) For Each myFolder In mySubFolders str = str & myFolder.Name & "(" & myFolder.Attributes & ")" & vbCrLf Next MsgBox str End Sub |
実行結果
関連記事
-
-
FileSystemObject:ファイル・フォルダの最終更新日時を取得(DateLastModified プロパティ)
ファイル・フォルダの最終更新日時を取得(DateLastModified プロパ …
-
-
FileSystemObject:指定したファイル名から拡張子を除いた文字列を取得する(GetBaseName)
ファイル名から拡張子を除いた文字列を取得(GetBaseName メソッド) F …
-
-
FileSystemObject:フォルダ内のすべてのファイルを取得(Files プロパティ)
フォルダ内のすべてのファイルを取得(Files プロパティ) フォルダ内のすべて …
-
-
FileSystemObject:Drive オブジェクトの主なプロパティ
Drive オブジェクトの取得 Drive オブジェクト を取得するには、FSO …
-
-
FileSystemObject:指定したファイル名から拡張子を取得する(GetExtensionName)
ファイル名から拡張子を取得(GetExtensionName メソッド) Fil …
-
-
FileSystemObject:ファイル・フォルダの最終アクセス日時を取得(DateLastAccessed プロパティ)
ファイル・フォルダの最終アクセス日時を取得(DateLastAccessed プ …
-
-
FileSystemObject:フォルダやファイルの種類を調べる(Type プロパティ)
フォルダやファイルの種類を取得(Type プロパティ) FileSystemOb …
-
-
FileSystemObject:File オブジェクトを取得(GetFile)
File オブジェクトを取得(GetFile メソッド) FileSystemO …
-
-
FileSystemObject:フォルダを移動する(MoveFolder)
フォルダを移動する(MoveFolder メソッド) FileSystemObj …
-
-
FileSystemObject:指定フォルダに含まれるすべてのフォルダを取得(SubFolders プロパティ)
フォルダに含まれるすべてのフォルダを取得(SubFolders プロパティ) F …