获取文件夹更详细的属性

folderpath := "C:WindowsSystem32"	;set the target full foler path
folderpath := RTrim(folderpath,"") ;remove a trailing backslash, if present 
StringReplace, folderpath, folderpath, , \, All	;double backslashes
objWMIService := ComObjGet("winmgmts:{impersonationLevel=impersonate}!\" . [color=brown]A_ComputerName . "rootcimv2") 
WQLQuery = SELECT * FROM Win32_Directory WHERE Name = '%folderpath%'	;Win32_Directory
colFolder := objWMIService.ExecQuery(WQLQuery)._NewEnum 	
While colFolder[objFolder] {
	FolderProperties := "Archive:`t`t`t" . objFolder.Archive . "`n"
	. "Caption:`t`t`t" . objFolder.Caption . "`n"
	. "Compressed:`t`t" . objFolder.Compressed . "`n"
	. "Compression method:`t" . objFolder.CompressionMethod . "`n"
	. "Creation date:`t`t" . objFolder.CreationDate . "`n"
	. "Encrypted:`t`t" . objFolder.Encrypted . "`n"
	. "Encryption method:`t`t" . objFolder.EncryptionMethod . "`n"
	. "Hidden:`t`t`t" . objFolder.Hidden . "`n"
	. "In use count:`t`t" . objFolder.InUseCount . "`n"
	. "Last accessed:`t`t" . objFolder.LastAccessed . "`n"
	. "Last modified:`t`t" . objFolder.LastModified . "`n"
	. "Name:`t`t`t" . objFolder.Name . "`n"
	. "Path:`t`t`t" . objFolder.Path . "`n"
	. "Readable:`t`t`t" . objFolder.Readable . "`n"
	. "System:`t`t`t" . objFolder.System . "`n"
	. "Writeable:`t`t`t" . objFolder.Writeable
}
msgbox % FolderProperties