You are normally using SHBrowseForFolder API function to let user browse for folder, sample code you can find at MVPs.org or Lebans.com. In order to show "Make new folder" button on this dialog you need to set following flag:
.ulFlags = .ulFlags Or &H40And MSDN BROWSEINFO Structure page lists other flags you can set for that dialog.
You could also use the Shell.BrowseForFolder method, no API required. Ex:
ReplyDeleteDim ShellApp As Object
Set ShellApp = CreateObject("Shell.Application"). _
BrowseForFolder(0, "Please choose a folder", 0)
You can still use the BROWSEINFO ulFlags structure.
Thanks for comment, JP!
ReplyDeletehere more info on that method:
Shell.BrowseForFolder Method
For even more flexibility, customization and functions, check out the FolderView control. It removes many of the limitations associated with using the "Browse for folder" dialog.
ReplyDeleteSee http://www.ssware.com/fldrview.htm