[FAQ] Utiliser la boite de dialogue selection d'un répertoire

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:

---

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

---

un tout petit défaut, ca ne renvoie pas Mes document ou le root disque (c:\), si on ne spécifie pas de repertoire de départ :

Code:

---

1 2 3 4 5 6

Set oShell = CreateObject("Shell.Application") Set oFolder = oShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&) On Error Resume Next ' >> MsgBox oFolder.ParentFolder.ParseName(oFolder.Title).Path Set oFolderItem = oFolder.Items.Item MsgBox oFolderItem.Path

---

;)

Bonjour, Thierry... j'ai pas tous compris sur ton problème de rootDisq...?
pour

une petite recherche
http://www.microsoft.com/technet/scr....mspx?mfr=true
m'as permis de trouver la méthode self qui permet d'extraire le "FolderItems" de l'objet sélectionné... cela donne

Code:

---

1 2 3 4 5 6 7 8 9

set oShell = CreateObject("Shell.Application") Set oFolder = oShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&,"c:\") If oFolder is Nothing Then MsgBox "Abandon opérateur",vbCritical Else Set oFolderItem = oFolder.Self MsgBox oFolderItem.path End If

---

Citation:

---

Envoyé par bbil

Bonjour, Thierry... j'ai pas tous compris sur ton problème de rootDisq...?

---

Avec ta 1ere fonction, enlève le repertoire par défaut et essaye de sélectionner le root "C:\" ou "Mes documents"

Sinon, ta 2e fonction marche bien aussi

bonjour à vous deux ... ;o)

Citation:

---

un tout petit défaut, ca ne renvoie pas Mes document ou le root disque (c:\), si on ne spécifie pas de repertoire de départ :

---

j'ai enfin trouvé un peu de temps pour mettre à jour le classeur démo, suite au remarques de Thierry.

http://silkyroad.developpez.com/VBA/ListView/


merci pour ces infos ... ;o)


bonne journée
michel