lancer un executable

Question

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

Alan71 · Answer

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

cs_rene38 · Answer

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

cameleonmediateur · Answer

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

cs_rene38 · Answer

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

Lancer un executable

4 réponses

Discussions similaires