ник: Alex
Подскажите, плз, что с этим делать, как ей пользоваться? 
... и функция диалога открытия папки:
Function FileUtils_GetFolderName(Optional ByVal Title As String = "Выберите папку:", Optional ByVal hWnd As Variant) As String
'© NSA Programmer, 2001. http://www.msaccess.ru ~ E-mail: nsa@chat.ru ~ ICQ: 7349882
'----------------------------------------------------------
' Диалог открытия папки
' Title - Текст заголовка окна диалога
' hWnd - дискриптор родительского окна.
' Примеры вызова функции:
' ? FileUtils_GetFolderName()
' ? FileUtils_GetFolderName("Папка",Me.hWnd)
'----------------------------------------------------------
On Error GoTo Err_FileUtils_GetFolderName
If IsMissing(hWnd) Then
hWnd = hWndAccessApp
End If
Dim acFolder As BROWSEINFO
Dim acPath(0 To 259) As Byte
Dim s As String
Dim i As Long
With acFolder
.hwndOwner = hWnd
.lpszTitle = Title
.ulFlags = BIF_RETURNONLYFSDIRS
Call SHGetSpecialFolderLocation(Application.hWndAccessApp, CSIDL_DRIVES, .pidlRoot)
End With
Call SHGetPathFromIDList(SHBrowseForFolder(acFolder), acPath(0))
For i = 0 To 259 Step 1
If acPath(i) <> 0 Then s = s & Chr(acPath(i))
Next i
FileUtils_GetFolderName = s
Exit_FileUtils_GetFolderName:
Exit Function
Err_FileUtils_GetFolderName:
MsgBox Err.Description
Resume Exit_FileUtils_GetFolderName
End Function
В конечном итоге нужно получить в поле путь к папке типа:
C:\Ляляля\Блабалабла\НужнаяПапка
Спасибо! 