Is there a Folder Picker method that shows files too?
Excellent, that's almost it!!! Thanks.
Question: this current browser object doesn't appear to give me the option
to go up to parent folders, is there a way to change that?
This is a different way of coding for me so I don't recognize how to change
the various options. Although I did figure out that the "&H5" was a
reference to My Documents (as changing it to H0-H9 set the directory to
various locations), and "&H4001" is perhaps some sort of filter. I was able
to get the browser to display NO files when I changed it to "&H1001"
"Steve Yandl" wrote:
Dim objShell
Dim objFldr
Set objShell = CreateObject("Shell.Application")
Set objMyDocs = objShell.Namespace(&H5)
pathMyDocs = objMyDocs.Self.Path
On Error Resume Next
Set objFldr = objShell.BrowseForFolder(0, "pick me", &H4001, pathMyDocs)
If Not (objFldr Is Nothing) Then
MsgBox objFldr.Items.Item.Path
End If
Set objFldr = Nothing
Set objShell = Nothing
"tenlbham" wrote in message
...
Thanks, but this is a file picker. I cannot use it to select a folder.
|