Вызывает диалог выбора папки.

Применяется к:

ZuluTools

Синтаксис:

Visual Basic:

Function GetFolder(hWnd As Long, dwFlags As Long, Title As String) As Boolean

hWnd - дескриптор родительского окна

dwFilters - флаги:

0x80000000 - запретить просмотр серверов геоданных

Title - заголовок открываемого окна диалога

Описание:

Если метод возвращает True, имя выбранной папки можно получить через свойство ZuluTools.Filename

Если метод возвращает False, это означает отмену выбора.

Пример:

Dim Tools As ZuluTools
           
'Создаем объект ZuluTools 
Set Tools = New ZuluTools

'Выбираем папку
If Tools.GetFolder (Form1.hWnd, 0, "Выбор папки") = True Then 
    'Проверяем выбор
    MsgBox Tools.Filename
End If