LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  Указание папки....
 Указание папки...
 
 28.11.2010 23:44:47
АлексБ
24 сообщения


Указание папки...

Здравствуйте. Может сможете подсказать как в Access открыть диалоговое окно для указания ТОЛЬКО папки (например, как при создания ярлыка на рабочем столе кнопка ОБЗОР) и чтобы возвращался полный путь, указывающий на эту папку. Только не диалоговое окно для открытия файлов, а именно папки...

 02.12.2010 0:06:48
АлексБ
24 сообщения


Re: Указание папки...

Неужели это такой сложный вопрос для профи?

 05.12.2010 20:22:31
АлексБ
24 сообщения


Re: Указание папки...

Спасибо. Разобрался сам. Если кому нужно, то вот:

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
  Программирование  Microsoft Access. Файлы mdb и accdb  Указание папки....
ПоискПоиск  Список форумовСписок форумов  
right