List file attribute value

diddom

说明

范例指令档示范如何使用 FileSystemObject 来列举一个档案的属性值。本范例指令档必需在本机执行。

范例指令码

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("C:\FSO\ScriptLog.txt")
If objFile.Attributes AND 0 Then
    Wscript.Echo "No attributes set."
End If   
If objFile.Attributes AND 1 Then
    Wscript.Echo "Read-only."
End If   
If objFile.Attributes AND 2 Then
    Wscript.Echo "Hidden file."
End If   
If objFile.Attributes AND 4 Then
    Wscript.Echo "System file."
End If   
If objFile.Attributes AND 32 Then
    Wscript.Echo "Archive bit set."
End If   
If objFile.Attributes AND 64 Then
    Wscript.Echo "Link or shortcut."
End If   
If objFile.Attributes AND 2048 Then
    Wscript.Echo "Compressed file."
End If