Shell Object Not Working Right In XL2000, But No Errors

[Guest]

I'm adding code to a workbook that will be used by Excel 2000 (on Win2K) and
Excel 2003 (on WinXP). The following code works fine in XL2003, but not in
XL2000.



Set objShell = CreateObject("Shell.Application")
Set objNS = objShell.Namespace(strFolderPath)

' Step through all the files in the current folder
For Each objF In objNS.Items

' GetDetailsOf exposes the summary information about the file. #12 is
the Category
If objNS.GetDetailsOf(objF, 12) = "myfile" Then

' Do stuff

End If

Next



When I step through the code in XL2000, I see that the objF objects are
recognized - I can hover the cursor over them and see the file/folder name as
the loop progresses. However, the statement "objNS.GetDetailsOf(objF, 12)"
returns a zero-length string in XL2000. In XL2003, it returns the "Category"
in the file's summary information. It does NOT, however, generate any error
messages in XL2000.

Is there something different I need to do for this code to work in XL2000?

 

[NickHK]

Not sure what the problem is, but as these are not Excel's objects, any
difference is probably down to the OS
For my W2K, I get valid responses for indices 0-8, all higher values
returning Empty.
It would appear that info such as "Category" cannot be returned from a
folder like this.
Have you looked in "Streams" ?

NickHK