Is there a built-in Dialog box that lets you select a folder, similar to the
way xlDialogOpen lets you select a file?
--
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


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Al" wrote in message ...
Is there a built-in Dialog box that lets you select a folder, similar to the
way xlDialogOpen lets you select a file?
--
Al C

Perfect!

Thank you, Ron.
--
Al C


"Ron de Bruin" wrote:

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


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Al" wrote in message ...
Is there a built-in Dialog box that lets you select a folder, similar to the
way xlDialogOpen lets you select a file?
--
Al C

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

Thank's,
Rgds,

Shiro


"Ron de Bruin" wrote in message
...
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


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Al" wrote in message
...
Is there a built-in Dialog box that lets you select a folder, similar to
the
way xlDialogOpen lets you select a file?
--
Al C

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


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"shiro" wrote in message ...
Mr Ron,
How to return the selected folder path to cell A1
as a text value.

Thank's,
Rgds,

Shiro


"Ron de Bruin" wrote in message
...
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


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Al" wrote in message
...
Is there a built-in Dialog box that lets you select a folder, similar to
the
way xlDialogOpen lets you select a file?
--
Al C