Discussion :

[Edoxituz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[AlainTech]

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.

[Edoxituz]

J'ai trouver quelque chose:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Edoxituz]

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

[SfJ5Rpw8]

si bellamyJC peu t'aider :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ....

[Edoxituz]

Merci pour le lien, bbil