VB6 ShellExecute + FileListBox [Résolu]

Messages postés
929
Date d'inscription
vendredi 10 novembre 2000
Dernière intervention
10 septembre 2010
- - Dernière réponse : cs_Jack
Messages postés
14010
Date d'inscription
samedi 29 décembre 2001
Dernière intervention
28 août 2015
- 27 avril 2006 à 20:27
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
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
14010
Date d'inscription
samedi 29 décembre 2001
Dernière intervention
28 août 2015
3
Merci
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

Dire « Merci » 3

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

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

Messages postés
19
Date d'inscription
lundi 8 décembre 2003
Dernière intervention
27 avril 2006
0
Merci
Salut,
             
Shell
File1.Path + File1.FileName, vbNormalFocus

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.