ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Using Shell To Get File Info (https://www.excelbanter.com/excel-programming/366490-using-shell-get-file-info.html)

MDW

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!

Steve Yandl

Using Shell To Get File Info
 
This link may break because of word wrap but it should have what you want.
You need "GetDetailsOf".

http://www.microsoft.com/technet/scr....mspx?mfr=true

Steve Yandl



"MDW" wrote in message
...
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!




MDW

Using Shell To Get File Info
 
You have just saved my life! You're my new hero!
--
Hmm...they have the Internet on COMPUTERS now!


"Steve Yandl" wrote:

This link may break because of word wrap but it should have what you want.
You need "GetDetailsOf".

http://www.microsoft.com/technet/scr....mspx?mfr=true

Steve Yandl



"MDW" wrote in message
...
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!






All times are GMT +1. The time now is 11:34 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com