John

This may get you started

Sub test()
With Application.FileDialog(msoFileDialogFolderPicker)
..Show
If .SelectedItems.Count 0 Then MsgBox .SelectedItems(1)
End With
End Sub

--
XL2002
Regards

William



"John Wirt" wrote in message
...
| Is there method of openning File Browser-like dialog, allowing the user to
| move up and down the folder tree from the current folder, select a drive
at
| the top of the tree, move down the folder tree of the selected drive to a
| desired folder, and then select that folder. The dialog needs to a) return
| the full path to that selected directory (whence one could use ChDir to
make
| it the defulat directory), or b) change the default directory to that
| selected directory?
|
| This is an Explorer-like function but I do not see how to do this within
| Excel VBA, even using the FileSystemObjecrt or any of the accessible Excel
| Dialogs. Dialogs(xlDialogOpen).Show comes the closest but requires
| selecting a Excel file and openning it.
|
|
| I want to write a VBA procedure that will list all the directories in a
tree
| in an Excel worksheet, starting from a selected directory or the root
| directory of a select drive.
|
| How can I do this?
|
| There are Excel-Addins that list files but I have found none that allow
| restricting the listing to directories only.
|
| John
|
|