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" <(E-Mail Removed)> wrote in message news:651F3A56-92BB-4B8E-920D-(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in message news:651F3A56-92BB-4B8E-920D-(E-Mail Removed)...
> > 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" <(E-Mail Removed)> wrote in message
news:O0#x#(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in message
news:651F3A56-92BB-4B8E-920D-(E-Mail Removed)...
> > 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" <(E-Mail Removed)> wrote in message news:(E-Mail Removed)...
> Mr Ron,
> How to return the selected folder path to cell A1
> as a text value.
>
> Thank's,
> Rgds,
>
> Shiro
>
>
> "Ron de Bruin" <(E-Mail Removed)> wrote in message
> news:O0#x#(E-Mail Removed)...
>> 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" <(E-Mail Removed)> wrote in message
> news:651F3A56-92BB-4B8E-920D-(E-Mail Removed)...
>> > 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
>
>