Suite à une discussion : Problème avec listview

pour "dépatouiller" Svenna je me suis interessé au code du projet servant d'exemple au tutorial http://silkyroad.developpez.com/VBA/ListView/..

et j'y ai découvert la méthode BrowseForFolder de l'objet shell.Application ( !! ne pas confondre avec l'objet shell de Wshell..!) et cela donne :

Q : Comment utiliser la boîte de dialogue de sélection d'un répertoire :
R : Avec la méthode BrowseForFolder de l'objet Shell.Application :

Code vb : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&,"c:\Tmp")
MsgBox oFolder.ParentFolder.ParseName(oFolder.Title).Path