List folder attribute value

diddom

说明

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

范例指令码

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\FSO")
If objFolder.Attributes AND 2 Then
    Wscript.Echo "Hidden folder."
End If   
If objFolder.Attributes AND 4 Then
    Wscript.Echo "System folder."
End If   
If objFolder.Attributes AND 16 Then
    Wscript.Echo "Folder."
End If  
If objFolder.Attributes AND 32 Then
    Wscript.Echo "Archive bit set."
End If
If objFolder.Attributes AND 2048 Then
    Wscript.Echo "Compressed folder."
End If