Utiliser l'explorer de Windows pour récupérer un chemin???

Question

Bonjour à tous!

Je voudrais savoir s'il est possible de récupérer le chemin complet d'un fichier grâce à l'explorer. Je m'explique, j'ai écrit: 
        Shell "explorer C:", vbNormalFocus
ce qui m'ouvre l'explorer de Windows dans le répertoire C. A partir de là j'aimerais que l'utilisateur parcourt les répertoires pour trouver le fichier dont il a besoin, mais je ne veux pas qu'il l'ouvre, je veux juste récupérer le chemin complet du dernier fichier qu'il aura choisi.

Est-ce que c'est faisable? Si quelqu'un a une piste, je prends!!

Merci d'avance!!!

cs_ITALIA · Answer

Utilise le controle CommonDialog qui est fé exprés pour ca :

voila un exemple de code :

'Initialisation du CommonDialog pour ouverture
Dialog.DialogTitle = "Choisissez un fichier..." 'Titre dans la barre 
Dialog.Filter = "Application|*.exe|Image|*.gif;*.jpg;*.bmp|Tous|*.*"'Filtre: les choix qui aparraîsse dans le dropdown menu a coté de Annuler
Dialog.Flags = cdlOFNFileMustExist + cdlOFNHideReadOnly
'Ce sont des option, si on en met trop, il manque de mémoire
'cdlOFNFileMustExist dit que le fichier doit existé avant d'être ouvert
'et cdlOFNHideReadOnly cache une option que je crois inutile
'Affichage de la boite
Dialog.ShowOpen
 
NomFichier= Dialog.FileName ' Garde le Chemin

It@li@

cs_cissou06 · Answer

Merci pour ton aide.

Est-ce que tu pourrais me dire comment je peux faire pour avoir ce contrôle car je l'ai coché dans la liste des contrôles ( il s'appelle bien Microsoft Common Dialog Control version, 6.0?), mais quand je veux m'en servir sur ma form il me dit: "Le contrôle n'a pas été créé parce qu'il n'est pas correctement licencié". Est ce que je peux arranger ça?

Merci d'avance.

cs_ITALIA · Answer

Coches les deux :

Microsoft Windows Common Controls 6.0 (SP4)
Microsoft Windows Common Controls-2 6.0

et j'ai revu mon code le voici sinon ca plante quand tu annule une recherche :

CommonDialog1.CancelError = True' Attribue à CancelError la valeur True

On Error GoTo ErrHandler

CommonDialog1.DialogTitle = "Recherche de Fichier"' Définit le titre de la fenêtre

CommonDialog1.Flags = cdlOFNHideReadOnly' Définit la propriété Flags

CommonDialog1.InitDir = "C:" ' Chemin Initial

CommonDialog1.Filter = "Base ACCESS (*.mdb)|*.mdb"' Définit les filtres

CommonDialog1.FilterIndex = 2' Définit le filtre par défaut

CommonDialog1.ShowOpen' Affiche la boîte de dialogue Ouverture

MonFichier= CommonDialog1.FileName)

Exit Sub
ErrHandler:
  'L'utilisateur a cliqué sur Annuler
Exit Sub

It@li@

cs_cissou06 · Answer

Désolée de t'embêter encore une fois mais je ne trouve pas Microsoft Windows Common Controls 6.0 (SP4) et Microsoft Windows Common Controls-2 6.0, je n'ai rien de ce nom ni même quelque chose qui ressemble... Est-ce que ça veut dire que je ne les ai pas? Dans ce cas, je peux les prendre quelque part?

Encore merci en tout cas!!!

cs_ITALIA · Answer

si tu les a automatiquement il faut cocher ses deux cases dans le Menu Projet....Composants ( n'oubli pas de decoché la case "Eléments Selectionnés )

It@li@

Utiliser l'explorer de Windows pour récupérer un chemin???

5 réponses

Discussions similaires