Здравствуйте. Может сможете подсказать как в Access открыть диалоговое окно для указания ТОЛЬКО папки (например, как при создания ярлыка на рабочем столе кнопка ОБЗОР) и чтобы возвращался полный путь, указывающий на эту папку. Только не диалоговое окно для открытия файлов, а именно папки...
Неужели это такой сложный вопрос для профи?
Спасибо. Разобрался сам. Если кому нужно, то вот:
Private Type BROWSEINFO ' used by the function GetFolderName hOwner As Long pidlRoot As Long pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As Long lParam As Long iImage As Long End Type Private Declare Function SHGetPathFromIDList Lib "shell32.dll" _ Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long Private Declare Function SHBrowseForFolder Lib "shell32.dll" _ Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long '----------------------------------------------------- Function GetFolderName(Msg As String) As String ' returns the name of the folder selected by the user Dim bInfo As BROWSEINFO, path As String, r As Long Dim X As Long, Pos As Integer bInfo.pidlRoot = 0& ' Root folder = Desktop If IsMissing(Msg) Then bInfo.lpszTitle = "Select a folder." ' the dialog title Else bInfo.lpszTitle = Msg ' the dialog title End If bInfo.ulFlags = &H1 ' Type of directory to return X = SHBrowseForFolder(bInfo) ' display the dialog ' Parse the result path = Space$(512) r = SHGetPathFromIDList(ByVal X, ByVal path) If r Then Pos = InStr(path, Chr$(0)) GetFolderName = Left(path, Pos - 1) Else GetFolderName = "" End If End Function