LANCER L'APPLI ASSOCIÉE À UNE EXTENSION, AUTOMATIQUEMENT.

Signaler
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004
-
Messages postés
1
Date d'inscription
mercredi 21 octobre 2009
Statut
Membre
Dernière intervention
24 octobre 2009
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/4755-lancer-l-appli-associee-a-une-extension-automatiquement

Messages postés
1
Date d'inscription
mercredi 21 octobre 2009
Statut
Membre
Dernière intervention
24 octobre 2009

merci merci,une aide tres Considérable pour mon cas,et bonne continuation
Messages postés
2
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
19 juin 2007

merci beaucoup ,moi ca ma servit .....
Messages postés
169
Date d'inscription
vendredi 27 septembre 2002
Statut
Membre
Dernière intervention
27 février 2009
1
Ah Non... car il faut utiliser une autre API... la voici...
(dans une form avec filelistbox)

______________
Private Declare Function FindExecutable Lib "shell32.dll" _
Alias "FindExecutableA" (ByVal lpFile As String, _
ByVal lpDirectory As String, ByVal lpResult As String) As Long

Private Function FichierAssocie(stFichier As String, stChemin As String) As String
Dim stRep As String
Dim lgRep As Long
stRep = Space$(250)
lgRep = FindExecutable(stFichier, stChemin, stRep)
stRep = Left$(stRep, InStr(1, stRep, vbNullChar) - 1)
FichierAssocie = stRep
MsgBox stRep, , "Pour Alan71"
End Function


Private Sub File1_Click()
FichierAssocie File1.filename, File1.Path
End Sub

_______________

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

Le pb, C que çà retourne pô le nom de prg lui même, ni sont Path...