COMMONDIALOG ET DOSSIERS

Commentaire de DARKSIDIOUS le 02/08/2006 20:03:08 administrateur CS

Pourtant, l'API SHBrowseForFolder est assez simple à utiliser !

Bon c'est sûr, ta méthode est plus simple, mais moins pratique...

Commentaire de Sechaud le 08/08/2006 09:23:50

Voici la solution la plus courte que j'ai trouvée avec SHBrowseForFolder sans module.
(Un bouton et un TextBox, pour ceux qui veulent essayer.)

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

Private Type BROWSEINFO
       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 Const BIF_RETURNONLYFSDIRS = &H1

Private Sub Command1_Click()
Dim BROWSEINFO As BROWSEINFO
Dim Chemin As String
Dim pidl As Long
Dim RetVal As Long
Dim p As Integer

'
Text1.Text = ""
BROWSEINFO.hOwner = Me.hWnd
BROWSEINFO.pidlRoot = 0&
BROWSEINFO.lpszTitle = "Selectionnez un répertoire"
BROWSEINFO.ulFlags = BIF_RETURNONLYFSDIRS
pidl& = SHBrowseForFolder(BROWSEINFO)
'
Chemin = String(512, 0)
RetVal = SHGetPathFromIDList(pidl&, Chemin)
If RetVal Then
        p = InStr(Chemin, Chr$(0))
        Text1.Text = Left(Chemin, p - 1)
    Else
        Text1.Text = ""
        
    End If

End Sub

Commentaire de Sechaud le 04/09/2006 08:05:27

Merci beaucoup US_30 pour cette belle simplification.