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
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.