диалог типа treeview

Уважаемые господа подскажите.

Есть приложение ntbackup, там для выбора папок _
используется диалог выбора в виде TreeView.

Не знает ли кто из вас как вызвать подобный диалог.

Наверное ты это имеешь ввиду...

Private Type BrowseInfo
hwndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As String
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
 
'Декларации
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
 
'Функция для вызова диалога
Private Function BrowseForFolder(hwndOwner As Long, sPrompt As String) As String
Const BIF_RETURNONLYFSDIRS = 1, MAX_PATH = 260
Dim intNull As Integer, lngIdList As Long
Dim udtBI As BrowseInfo
 
With udtBI
.hwndOwner = hwndOwner
.lpszTitle = sPrompt
.ulFlags = BIF_RETURNONLYFSDIRS
End With
 
lngIdList = SHBrowseForFolder(udtBI)
 
If lngIdList Then
strPath = String$(MAX_PATH, 0)
SHGetPathFromIDList lngIdList, strPath
CoTaskMemFree lngIdList
intNull = InStr(strPath, vbNullChar)
If intNull Then strPath = Left$(strPath, intNull - 1)
End If
 
BrowseForFolder = strPath
 
End Function

да это именно, то но там должен быть
режим множественного выделения
или возможность воткнуть галки против папок которые представляют интерес

morozovds, имхо, стоит поэкспериментировать с флагами... там ТОЧНО есть флаг, добавляющий кнопку "создать папку"... есть ещё что-то (сорри, но уже не помню, что ещё) помню что нашёл три каких-то полезных флага, но потом отказался от этой функции, т.к. у меня с ней возникли траблы под 98й (я тогда на нт сидел...), резбираться я тогда не стал, сделал по-простому, с дискселектором и фолдервью...

А кто-нибудь знает, как заставить это окно открыться на определённой папке, но не используя её как Root?
я в своё время так и не нашёл способа...