View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
MDW MDW is offline
external usenet poster
 
Posts: 117
Default Using Shell To Get File Info

I know that I can use the DsoFile Tool to get file attributes and summary
data about files without having to open them. However, I'm looking for a
solution that doesn't require the installation of any ancillary tools.

It appears that the Shell object might be able to provide access to some
file attributes (I'm looking for either the "Category" or "Keywords" summary
data attributes), but I can't quite get it to work.

Set objShell = CreateObject("Shell.Application")

Set objNS = objShell.NameSpace("C:\")

For Each objItem In objNS.Items

MsgBox objItem.ExtendedProperty(???)

Next

I'm not sure what the key words are for the extended properties. I tried
just putting in "Category" and it gets a 0-length string.

Any help?
--
Hmm...they have the Internet on COMPUTERS now!