Executer un fichier non .exe ???

Question

Je me fais un autorun pour mes .exe et j'ai un probleme. j'écris:

  fichier = app.Path & file.fileName
  shell fichier,vbNormalFocus

le file.fileName renvoit : archive.exe.lnk (un racourci) et j'ai un erreur me disant que l'appel n'est pas bon. 

La meme chose avec un .html

pouvons juste ouvrir un .exe si oui comment puis-je alors faire ???

BasicInstinct · Answer

c parce que:
fichier = app.Path & "" & file.fileName

cs_rene38 · Answer

Shell ne sait exécuter que des fichiers ... exécutables ! (.com, .exe, .bat)
Pour lancer un autre fichier par son application, il faut utiliser la fonction API ShellExecute :
Déclaration :
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

Appel de la fonction :

Fichier = Chemin & MonFichier

ShellExecute Me.hWnd, "open", Fichier, vbNullString, Chemin, SW_SHOWNORMAL

Executer un fichier non .exe ???

2 réponses

Discussions similaires