VB6 ShellExecute + FileListBox [Résolu]

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

Merci cs_Jack 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 72 internautes ce mois-ci

cs_akina 19 Messages postés lundi 8 décembre 2003Date d'inscription 27 avril 2006 Dernière intervention - 27 avril 2006 à 20:26
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.