[VB6] Lancement d'un type de fichier avec son programme affiliéRésolu

Question

Salut



je programme en VB6 et je souhaite lancer un fichier quelconque.

je connais donc la commande shell



ex: shell ("C:\Program Files\Microsoft Office\OFFICE11\Excel.exe C:\mesdoc~1\exemple.xls")


ou

shell ("C:\Program Files\Microsoft Office\OFFICE11\Excel.exe "+monfichier)




cette commande est valable si je lance un fichier
excel mais si je ne connais pas mon type de fichier a l'avance (xls,
doc, txt, zip etc...) , quel code dois je mettre pour que a partir d'un
fichier donn&#233; (et surtout de son extension) je lance le programme
affili&#233; a ce type de fichier?



merci d'avance

BruNews · Accepted Answer

ShellExecute

ciao...
BruNews, MVP VC++

Didf · Answer

merci j'ai suivi donc la proc&#233;dure mais

 quand je colle :

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

 

Const SW_SHOWNORMAL = 1



j'obtiens un message d'erreur a l'execution de mon programme:

"Erreur de compilation



seuls des commentaires peuvent apparaitre apres End Sub, End Function ou End Property"



et la ligne

(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) est selectionn&#233;e...



help

crenaud76 · Answer

Ton Declare et ta déclaration de Const SW_SHOWNORMAL doivent être en haut de ton module, c-à-d avant toute déclaration de procédure/fonction
Exemple de module :
Option Explicit

Private Declare Function NomAPI1
Private Declare Function NomAPI2

Private Const ...
Private Const ...

Public Sub Toto()
blablabla
End Sub

[VB6] Lancement d'un type de fichier avec son programme affilié

3 réponses

Discussions similaires