VB6 ShellExecute + FileListBox Résolu

Question

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

cs_Jack · Accepted Answer

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

cs_akina · Answer

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

VB6 ShellExecute + FileListBox

2 réponses

Discussions similaires