Built-in Dialog box for folders?

[Al]

Is there a built-in Dialog box that lets you select a folder, similar to the
way xlDialogOpen lets you select a file?

 

[Ron de Bruin]

Try this

Dim oApp As Object
Dim oFolder

Set oApp = CreateObject("Shell.Application")

'Browse to the folder
Set oFolder = oApp.BrowseForFolder(0, "Select folder", 512)
If Not oFolder Is Nothing Then
'Do your stuff
Else
MsgBox "You not select a folder"
End If

 

[Al]

Perfect!

Thank you, Ron.
--
Al C

Try this

Dim oApp As Object
Dim oFolder

Set oApp = CreateObject("Shell.Application")

'Browse to the folder
Set oFolder = oApp.BrowseForFolder(0, "Select folder", 512)
If Not oFolder Is Nothing Then
'Do your stuff
Else
MsgBox "You not select a folder"
End If

 

[shiro]

Mr Ron,
How to return the selected folder path to cell A1
as a text value.

Thank's,
Rgds,

Shiro

 

[Ron de Bruin]

Hi Shiro

Try

Sub test()
Dim oApp As Object
Dim oFolder

Set oApp = CreateObject("Shell.Application")

'Browse to the folder
Set oFolder = oApp.BrowseForFolder(0, "Select folder", 512)
If Not oFolder Is Nothing Then
Range("A1").Value = oFolder.Self.Path
Else
MsgBox "You not select a folder"
End If
End Sub