Есть примерчик. Если нужен - говори - вот моё мыло - a_daniyar@mail.ru

Ответить

Public Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, _

    ByVal nFolder As Long, ppidl As Long) As Long

Public Const CSIDL_DRIVES = &H11

Public Type BROWSEINFO

    hwndOwner 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

Public Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" _

    (lpbi As BROWSEINFO) As Long

Public Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" _

    (ByVal pidl As Long, ByVal pszPath As String) As Long

Public Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal pv As Long)

Private Sub cmdOpenFolder_Click()

'frmPath.Show vbModal

    Dim bi As BROWSEINFO  ' structure passed to the function

    Dim pidl As Long  ' PIDL to the user's selection

    Dim physpath As String  ' string used to temporarily hold the physical path

    Dim retval As Long  ' return value

    ' Initialize the structure to be passed to the function.

Оба-на!!! Не все строки вставляются в ответ после отправки. Админ может насторожиться.

    ' Initialize the structure to be passed to the function.

    With bi

        ' The owner of the dialog box.

        .hwndOwner = Me.hWnd

        ' Specify the My Computer virtual folder as the root.

        retval = SHGetSpecialFolderLocation(Me.hWnd, CSIDL_DRIVES, .pidlRoot)

        ' Make room in the buffer to get the [virtual] folder's display name.

        .pszDisplayName = Space(260)

        ' Message displayed to the user.

        .lpszTitle = "Please choose a folder."

        ' Nothing else needs to be set.

        .ulFlags = 0

        .lpfn = 0

        .lParam = 0

        .iImage = 0

    End With

    ' Open the Browse for Folder dialog box.

    pidl = SHBrowseForFolder(bi)

    ' If the user selected something, display its display name

    ' and its physical location on the system.

    If pidl <> 0 Then

        ' Remove the empty space from the display name variable.

        bi.pszDisplayName = Left(bi.pszDisplayName, InStr(bi.pszDisplayName, vbNullChar) - 1)

        Debug.Print "The user selected: "; bi.pszDisplayName<

Ответить

        Debug.Print "The user selected: "; bi.pszDisplayName

        ' If the folder is not a virtual folder, display its physical location.

        physpath = Space(260)

        retval = SHGetPathFromIDList(pidl, physpath)

        If retval = 0 Then

            Debug.Print "Physical Location: (virtual folder)"

        Else

            ' Remove the empty space and display the result.

            physpath = Left(physpath, InStr(physpath, vbNullChar) - 1)

            txtDest.Text = physpath 'path to selected folder

            Debug.Print "Physical Location: "; physpath

        End If

        ' Free the pidl returned by the function.

        CoTaskMemFree pidl

    End If

    ' Whether successful or not, free the PIDL which was used to

    ' identify the My Computer virtual folder.

    CoTaskMemFree bi.pidlRoot

End Sub

Ответить

Ответить

to Malyav у меня тут ошибка выскакивает в строках

Public Const CSIDL_DRIVES = &H11

Public Type BROWSEINFO

может я что-то неопонял?

Ответить

Ответить