Commande parcourir

Question

Bonjour .

J'ai un petit problème avec une commande je vais m'expliquer ici ^^

Alors je veut faire une commande pour qu'ont puisse sélectionner l'emplacement d'un fichier.

pour l'instant j'ai fait cela :

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
Label5.Caption = sFld

Mais le problème ces que je veut que dans le label5.caption il affiche l'emplacement exacte du fichier parce que en ce moment il ne fait qu'afficher le nom du dossier sélectionner..

Exemple : pour l'instant il affiche Windows

moi je voudrais qu'il affiche C:\WINDOWS

en espérant avoir été claire merci d'avance =D

Utilisateur anonyme · Answer

Salut,

BrowseForFolder te retourne une structure dossier (http://msdn.microsoft.com/en-us/library/bb787868(v=VS.85).aspx#properties) et non un chaîne.

Utilise donc
Set Fld = sa.BrowseForFolder(0, "My Computer:", BIF_EDITBOX Or BIF_NEWDIALOGSTYLE)
MsgBox Fld.Items.Item.Path


_____________
Kenji

warriorsam9 · Answer

Merci beaucoup sa marche a merveil sauf que quand je lance le parcourir et que je clique sur annuler le programme bug ^^

PCPT · Answer

salut,

http://www.codyx.org/snippet_boite-dialogue-pour-choisir-repertoire_512.aspx#1881

[hr]

warriorsam9 · Answer

Daccord merci ces bon c'est arranger 

Sujet clos =D

Commande parcourir

4 réponses

Votre réponse

Discussions similaires