VB6 ShellExecute + FileListBox [Résolu]

Signaler
Messages postés
926
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
10 septembre 2010
-
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
Salut...

J'aimerais faire ouvrir un fichier qui aparaît dans mon FileListBox avec la commande ShellExecute

J'utilise une commande du genre dans mon programme qui n'utilise pas bien un FileListBox

C'est quoi le code à utiliser pour dire " Ouvre le fichier sélectionné dans le FileListBox" ???

Mon FileListBox se nomme File1

J'ai essayé en autre cela et ca ne fonctionne évidemment pas...

Private Sub File1_Click() 
Recherche = ShellExecute(Me.hWnd, "open", "File1", vbNullString, "", SW_SHOWNORMAL)
End Sub

Merci d'avance

2 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
70
Salut
Tu n'as pas d$u beaucoup cherché ... bref
File1 est le nom de ton composant.
Puisque tu te réfères à un objet, il ne faut pas l'encadrer avec des "
Pour connaitre le nom du fichier qui est actuellement sélectionné, il faut utiliser File1.FileName
Ceci ne te fournira QUE le nom du fichier, aps sont chemin.
Le chemin est dans File1.Path.
Ta commande deviendra donc :
Recherche = ShellExecute(Me.hWnd, "open", File1.Path & "" & File1.FileName, vbNullString, "", SW_SHOWNORMAL)

Nota : File1_Click se déclenche à chaque fois que tu fais un simple Click dans la liste --> Vois s'il ne faudrait pas plutôt utiliser File1_DblClick

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accro
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci

Messages postés
19
Date d'inscription
lundi 8 décembre 2003
Statut
Membre
Dernière intervention
27 avril 2006

Salut,
             
Shell
File1.Path + File1.FileName, vbNormalFocus