Lancer un fichier .exe à partir d'un file list box

Commenter

Contenu du snippet

Le code vous permet de lancer n'importe quel fichier .exe à partir d'un file list box en cliquant 2 fois sur le fichier
Il faut simplement créer dans un feuille "form" simple un drive list box, un dir list box et un file list box

Source / Exemple : 


Private Sub Command1_Click()

End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dim v
v = Drive1.Drive
Dir1.Path = v
End Sub

Private Sub File1_Click()

End Sub

Private Sub File1_DblClick()
Dim v
v = Drive1.Drive
a = Left(v, 2)  
If File1.Path = a + "\" Then   
Shell File1.Path + File1.FileName, vbNormalFocus
Else
Shell File1.Path + "\" + File1.FileName, vbNormalFocus
End If
End Sub

Private Sub Form_Load()
Drive1.Drive = "c:"
Dir1.Path = "c:\"
File1.Path = "c:\"
End Sub

Conclusion :


pour me contacter conradjai@yahoo.fr
produit de Mohamed Jaidane , HEXADEC ET AJST

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_jaidane)