Fonction Parcourir juste pour un répertoire

L’utilisation du ComonDialogBox impose d’aller jusqu’au fichier.
Si l’on ne veut descendre qu’à la maille du dossier, on peut utiliser la procédure suivante:

Private Sub Command1_Click()
    Const WINDOW_HANDLE = 0
    Const NO_OPTIONS = 0    

    Set objShell = CreateObject(« Shell.Application »)
    Set objFolder = objShell.BrowseForFolder(WINDOW_HANDLE, « Select a folder: », NO_OPTIONS,[RootFolder])
    Set objFolderItem = objFolder.Self    

    Me.Caption = objFolderItem.Path
End Sub

Nota: [RootFolder] est le répertoire le plus haut auquel l’utilisateur peut accéder. Il est optionnel (représenté par des []).