VBS - SÉLECTION D'UN FICHIER SUR DISQUE VIA UNE BOITE DE DIALOGUE

PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 10 févr. 2009 à 21:48
cs_gilgamesh44 Messages postés 12 Date d'inscription lundi 22 novembre 2004 Statut Membre Dernière intervention 31 mars 2009 - 11 févr. 2009 à 12:49
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/49235-vbs-selection-d-un-fichier-sur-disque-via-une-boite-de-dialogue

cs_gilgamesh44 Messages postés 12 Date d'inscription lundi 22 novembre 2004 Statut Membre Dernière intervention 31 mars 2009
11 févr. 2009 à 12:49
Salut,

Merci pour cette source. Je recherchais depuis un moment comment ouvrir cette boîte de dialogue "Browse Folder". A chaque fois, je refaisais quelque chose avec DriveListBox, DirListBox et FileListBox.

Cependant, une petite chose à savoir (qui ne s'applique pas dans cette petite source), mais CreateObject impacte grandement les performances. (Ref: http://msdn.microsoft.com/fr-fr/library/7t9k08y5(VS.80).aspx)

Alors, pour le premier, je ne sais pas comment faire apparaitre autrement la boite de dialogue, mais pour le deuxieme, pour tester si c'est bien un repertoire, tu peux utiliser la fonction Dir().

Ex:
If Len(Dir(fichier, vbDirectory)) > 0 Then
MsgBox fichier
End If

Par contre, il doit y avoir des parametres differents à utiliser pour la fonction ShellWindows.BrowseForFolder qui n'affiche pas les fichiers en tant que repertoire.

Bon developpement !

Merci bcp !
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
10 févr. 2009 à 21:48
salut,

ces "petits codes" on plutôt leur place sur www.codyx.org
même loggin/pass que sur codes-sources

tu peux l'y ajouter à cette adresse :
http://codyx.org/snippet_boite-dialogue-pour-choisir-fichier_514.aspx#

bonne soirée
Rejoignez-nous