Lancer un executable

Signaler
Messages postés
15
Date d'inscription
samedi 12 octobre 2002
Statut
Membre
Dernière intervention
21 décembre 2004
-
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
-
salut,
j'aimerai que lorsque je clic sur un "command",
le fichier contenu dans "file1", soit executer avec le programme au quel il est associé.
(ex : un fichier .txt avec notepad"

a savoir que la commande :
Shell File1.Path & "" & File1.FileName, vbNormalFocus
ne fonction pas.

merci

4 réponses

Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004

ShellExecute. Une des commandes les + usées en VB.
Trouve une source (C pas dur, y en a une bonne 50aine)

>:) ::Alan USSE:: >:)
0
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
ShellExecute Form1.hWnd, "open", "C:\MonDossier\MonFichier", vbNullString, "C:\MonDossier", Option_d'Affichage
End Sub

Option_d'Affichage peut prendre les valeurs :

0 SW_HIDE
1 SW_SHOWNORMAL
2 SW_SHOWMINIMIZED
3 SW_SHOWMAXIMIZED
4 SW_SHOWNOACTIVATE
5 SW_SHOW
6 SW_MINIMIZE
7 SW_SHOWMINNOACTIVE
8 SW_SHOWNA
9 SW_RESTORE
10 SW_SHOWDEFAULT
10 SW_MAX
0
Messages postés
15
Date d'inscription
samedi 12 octobre 2002
Statut
Membre
Dernière intervention
21 décembre 2004

un grand merci, mais juste un probleme, ca marche pas pour les *.exe, mais pour l'autre format que je voulais ca marche.

si tu aurai une solution pour le *.exe
merci
0
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Mais si ! ça marche très bien pour les .exe.
Evidemment, dans ce cas, il faut savoir où est le fichier .exe de l'application

Exemple :
ShellExecute Form1.hWnd, "open", "C:\Windows\Notepad.exe", vbNullString, "C:\Windows", 1
0