Trouver le programme associé à un type fichier

Commenter

Contenu du snippet

Ce programme permer de trouver à quel programme est associé un type de fichier.
Par exemple .pdf est associé à Acrobat reader si celui-ci est installé, etc...

Source / Exemple : 


#If Win32 Then
    Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long
#Else
    Private Declare Function FindExecutable Lib "shell.dll" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Integer
#End If

'***************FONCTION DE RECHERCHE
Private Function Rechexe(Monfichier As String) As String
    Dim ChaineRet As String
    Dim ChaineExe As String
    'Dcl en variant Int ou Long
    Dim ret As Variant

    ChaineRet = Space(100)
    'Recherche de l'exe en fonction du fichier associé
    ret = FindExecutable(Monfichier, CurDir(), ChaineRet)
    If ret <= 32 Then
        ChaineExe = ""
    Else
        ChaineExe = Mid$(ChaineRet, 1, InStr(1, ChaineRet, Chr(0), 1) - 1)
    End If
    Form1.Print ChaineExe
    Rechexe = ChaineExe
End Function
'***********************************

'***************CHERCHER ASSOCIATION
'Essai de la fonction et lancement
Sub CmdOpen_Click()

Dim ret As Variant
Dim nomexe As String, nomfich As String

nomfich = "c:\1.pdf" 'Lien vers le fichier
nomexe = Rechexe(nomfich)
If nomexe <> "" Then
MsgBox "association trouvée"
Else
MsgBox "Pas d'association définie"
End If
End Sub
'***********************************

Conclusion :


Ce code a été trouvé sur le MSN du site de Microsoft (merci à eux).

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (dracer)