VBA Alternative Folder Picker

[DMA]

Hello,

VBA has the FileDialog(msoFileDialogFolderPicker), which is the default explorer view.

Is there any way to get the alternative folder picker in the picture to work in VBA? I was not able to find any reference to it.

Thanks.

[Marc L]

A VBA demonstration for starters :

Sub DemoFolder() 
    Dim obj As Object, P$ 
    Set obj = CreateObject("Shell.Application").BrowseForFolder(0, vbLf & "Your text here :", 1, "") 
     If obj Is Nothing Then Beep: Exit Sub Else P = obj.Self.Path & "\": Set obj = Nothing 
    MsgBox P 
End Sub  

► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄

[WideBoyDixon]

Not identical but you can use the Shell.Application object:

Please Login or Register  to view this content.

WBD

[DMA]

I see. It was a shell application. Both work great.

Thank you, Marc L and WideBoyDixon!