View Single Post
  #10   Report Post  
Posted to microsoft.public.excel.programming
tenlbham tenlbham is offline
external usenet poster
 
Posts: 10
Default 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.