Отобразить диалоговое окно, позволяющее выбрать нужную папку- Visual Basic(Бейсик)

Для того, что отобразить диалоговое окно, с помощью которого можно выбрать необходимую папку и получить полный путь к этой папке, можно использовать объект FileDialog.

Private Sub GetSelectedFolder()
    With Application.FileDialog(msoFileDialogFolderPicker)
         .AllowMultiSelect = False
         .Show
         If .SelectedItems.Count = 1 Then
            iPath = .SelectedItems(1) '.InitialFileName
            MsgBox "Выбрана папка : " & iPath, vbExclamation, ""
         Else
            MsgBox "Выберите нужную папку", vbCritical, ""
         End If
    End With
End Sub

Private Sub GetSelectedFolder()
    With Application.FileDialog(msoFileDialogFolderPicker)
         '.AllowMultiSelect = False
         If .Show = True Then
            iPath = .SelectedItems(1) '.InitialFileName
            MsgBox "Выбрана папка : " & iPath, vbExclamation, ""
         Else
            MsgBox "Выберите нужную папку", vbCritical, ""
         End If
    End With
End Sub