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