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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Для того, что отобразить диалоговое окно, с помощью которого можно выбрать необходимую папку и получить полный путь к этой папке, можно использовать объект 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

Похожие записи/страницы:

Leave a Comment