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
Partager