[VBS]Ouvrir boite de dialogue pour selectionner répertoire

Bonjour, je voudrai créer un script vbs qui ouvre une boite de dialogue pour sélectionner un répertoire sur le disque dur, j'ai déjà un code pour sélectionner un fichier:

Code:

---

1 2 3 4

Set oUA = CreateObject("UserAccounts.CommonDialog") x = oUA.ShowOpen wscript.echo x wscript.echo oUA.FileName

---

Mais je ne sais pas coment faire pour la selcetion de répertoire quelqu'un saurait-il m'aider ?

De plus j'aimerai ajouter un filtre pour les extension et un texte dans la barre de titre.

Euh...

T'as pas déjà une question similaire là?

http://www.developpez.net/forums/viewtopic.php?t=460087

Edit --> Après un MP de Edoxituz me disant que c'était un autre problème, j'ai rouvert ce sujet.

J'ai trouver quelque chose:

Code:

---

1 2 3 4 5

Const BIF_EDITBOX = &H10 Const BIF_NEWDIALOGSTYLE = &H40 Set sa = CreateObject("Shell.Application") sFld = sa.BrowseForFolder(0, "My Computer:", BIF_EDITBOX Or BIF_NEWDIALOGSTYLE) MsgBox sFld

---

Serait-il possible dans le script ci-dessous de faire en sotre que le message "Aucunne sélection" soit afficher dans un MsgBox si l'utilisateur clique sur annuler ?
le script ne prend que le nom du répertoire dans la variable, y pas moyen de prendre le chemin complet ?

Il faudrai au moin que la variable prenne le chemin complet du répertoire sélectionné, quelqu'un saurait-il m'aider ?

si bellamyJC peu t'aider :

Code:

---

http://www.bellamyjc.org/fr/vbsavance.html#selectfolder

---

PS : Je fais de + en + de pub pour le site ) M.Bellamy .. mais j'y peu rien j'y trouve toutes les solutions au problémes VBS ....

Merci pour le lien, bbil :wink: