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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 658 fois - Téléchargée 48 fois

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

Ajouter un commentaire

Commentaires

leneuf22
Messages postés
156
Date d'inscription
samedi 12 janvier 2002
Statut
Membre
Dernière intervention
4 mars 2003
-
Je préfère utiliser comdlg32.ocx (Microsoft Common Dialog Control 6.0)
Parce que là on se croirait retournés sous win 3.x !
fou volant13
Messages postés
55
Date d'inscription
vendredi 29 juin 2001
Statut
Membre
Dernière intervention
2 février 2002
-
Peut etre leneuf, mais ca marche aussi avec une listview et la, c exactement la meme méthode a peu de chose pres en créant des tableaux, et ca a rien a voir avec Win 3.1
cs_Crazyht
Messages postés
1523
Date d'inscription
mardi 18 décembre 2001
Statut
Modérateur
Dernière intervention
21 août 2010
4 -
Et si tu veux selectionner un dossier, tu fait comment avec un comdlg32.ocx ?

Alors que cette methode fonctionne aussi.

A++
Hervé

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)