Trouver le programme associé à un type fichier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 456 fois - Téléchargée 47 fois

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

Ajouter un commentaire

Commentaires

cuq
Messages postés
345
Date d'inscription
mardi 3 juin 2003
Statut
Membre
Dernière intervention
21 mars 2008
1 -
ca marche ... on en demande pas plus
cs_LuTo
Messages postés
102
Date d'inscription
mercredi 9 janvier 2002
Statut
Membre
Dernière intervention
6 juin 2010
-
Cool. Je savais meme pas qu'on pouvais mettre du code en dehors d'une procedure.

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.