BrowseForFolder

From scripting
Jump to: navigation, search
Dim FolderName As String
Dim RootPath
FolderName = GetFolderName("Select a folder")
If FolderName = "" Then
    MsgBox "You didn't select a folder."
Else
    RootPath = FolderName & "\"
    TextBoxSavePath.Value = RootPath
    'MsgBox "You selected this folder: " & RootPath
End If