Browse for folder in VBA macro
The following code snippet demonstrates how to browse for the folder path within VBA macro. The same function can also be used within VBScript.
Sub main()
Debug.Print BrowseForFolder("Browse for folder")
End Sub
Function BrowseForFolder(Optional title As String = "Select Folder") As String
Dim shellApp As Object
Set shellApp = CreateObject("Shell.Application")
Dim folder As Object
Set folder = shellApp.BrowseForFolder(0, title, 0)
If Not folder Is Nothing Then
BrowseForFolder = folder.Self.Path
End If
End Function