Determine Encryption / Compression of NTFS Folder?

[PScottC]

I'm looking for a way to determine whether or not a folder is encrypted or compressed. The Scripting.FileSystemObject object doesn't appear to be able to expose this information.

Anyone tried this?

PSC

Governments and corporations need people like you and me. We are samurai. The keyboard cowboys. And all those other people out there who have no idea what's going on are the cattle. Mooo! --Mr. The Plague, from the movie "Hackers

 

[PHV]

Have a look here:

http://msdn.microsoft.com/library/en-us/script56/html/423ca96b-6877-4268-a6cc-3139e034f88c.asp

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[PScottC]

I'm actually interested in the [blue]encrypted[/blue] status of the folder. Here's my test code... The folder referenced has the following attributes: encrypted, archive, read-only.

Dim objFSO, objFolder, strFolder

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Documents and Settings\testuser\Favorites")

strFolder = objFolder.Attributes
WScript.Echo strFolder

The result that I get is 49, which indicates only archive and read-only.

PSC

Governments and corporations need people like you and me. We are samurai. The keyboard cowboys. And all those other people out there who have no idea what's going on are the cattle. Mooo! --Mr. The Plague, from the movie "Hackers

 

[PScottC]

Ok... Thanks to Script-o-Matic, I think that I have found a way...

Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT Caption FROM Win32_Directory WHERE" _
	& " Drive = 'c:' and Path LIKE '%Favorites%' and Encrypted = 'true'", _
	"WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each objItem In colItems
	WScript.Echo "Caption: " & objItem.Caption
Next

PSC

Governments and corporations need people like you and me. We are samurai. The keyboard cowboys. And all those other people out there who have no idea what's going on are the cattle. Mooo! --Mr. The Plague, from the movie "Hackers