Attributes
オブジェクト属性設定・取得
文法
Folderオブジェクト.Attributes
機能説明
フォルダの属性を設定・取得
属性
定数 | 値 | 説明 |
Alias | 1024 | リンク・ショートカット |
Archive | 32 | アーカイブファイル |
Compressed | 2048 | 圧縮ファイル |
Directory | 16 | フォルダ・ディクトリ |
Hidden | 2 | 隠しファイル |
Normal | 0 | 標準のファイル |
ReadOnly | 1 | 読取専用 |
System | 4 | システムファイル |
使用例
<%
Dim objFs, objFld
Set objFs = Server.CreateObject("Scripting.FileSystemObject")
Set objFld = objFs.GetFolder("D:\test")
Select Case objFld.Attributes
Case Alias
Response.Write "ショートカット
"
Case Archive
Response.Write "アーカイブ
"
Case Compressed
Response.Write "圧縮ファイル
"
Case Directory
Response.Write "フォルダ
"
Case Hidden
Response.Write "隠しファイル
"
Case Normal
Response.Write "標準ファイル
"
Case ReadOnly
Response.Write "読取専用ファイル
"
Case System
Response.Write "システムファイル
"
Case Else
Response.Write "不明
"
End Select
'オブジェクトを開放
Set objFld = Nothing
Set objFs = Nothing
%>
Topへ