Solved: Selecting a folder interactively

[JimmyTheHand]

Hi

I'm working on a program that processes files in a choosen folder. I want the user to select the folder they want to process by browsing in the folder tree. How do I do this?
For lack of a better idea, I now use a workaround, namely selecting a file by GetOpenFilename, then retrieving the path from the filename.
[vba]Public MainFolder as String
Sub SelectFolder()
MainFolder = Application.GetOpenFilename(, , , , False)
MainFolder = Left(MainFolder, InStrRev(MainFolder, "\"))
End Sub[/vba] Anyone knows of a better way?

Thanks,
Jimmy

[Charlize]

It must be your lucky day today.

Charlize

[JimmyTheHand]

It must be your lucky day today.

Charlize

Indeed . Thanks

[BigC]

I'm looking for something very similar to the request in this post (i.e. allow the user to select a FOLDER into which a file is to be saved, and return the name of the folder to the sub), but also allowing Shortcuts (to folders) and Favourites to be displayed and used to drill down the folder heirachy. (My client has many levels to their folder structure, but I'd prefer NOT to "hard code" one of the lower level folders into the code in order to reduce the amount of drilling-down required.)

Is this possible? (If not, is it because Shortcuts are treated like files, which I don't want the user to see - only folders?)

[johnhlaj]

This helped a lot

[Bob Phillips]

I'm looking for something very similar to the request in this post (i.e. allow the user to select a FOLDER into which a file is to be saved, and return the name of the folder to the sub), but also allowing Shortcuts (to folders) and Favourites to be displayed and used to drill down the folder heirachy. (My client has many levels to their folder structure, but I'd prefer NOT to "hard code" one of the lower level folders into the code in order to reduce the amount of drilling-down required.)

Is this possible? (If not, is it because Shortcuts are treated like files, which I don't want the user to see - only folders?)

[vba]

With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show

MsgBox .SelectedItems(1)

End With
[/vba]

[JimmyTheHand]

Bob,

You never cease to amaze me


Jimmy

[BigC]

Wow! I think this gives me almost all of what I want (no Favourites but no matter) and saved over a page of code.

Many thanks