Storage Folders List Folder Attributes
' List Folder Attributes
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
|
VbsEdit includes all these samples!
Download version 3.4.1
Released Tuesday, January 06, 2009 -
The evaluation version never expires
Home
Buy Now
HtaEdit
Support
Video
What's new ?
Awards
|