Savoir avec quelle appli s'ouvre les fichiers d'une extension

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 275 fois - Téléchargée 71 fois

Contenu du snippet

comme le titre de ce code l'indique, cette api vous permet de savoir le le nom et le chemin complet de l'application qui ouvre un document donné.

Source / Exemple :


Private Declare Function FindExecutableA Lib "shell32.dll" (ByVal lpFile As String, ByVal lpdirectory As String, ByVal lpResult As String) As Long
Private Const MAX_FILENAME_LEN = 256 

Function FindExecutable(s As String) As String
   Dim i As Integer
   Dim s2 As String
   s2 = String(MAX_FILENAME_LEN, 32) & Chr$(0)
   i = FindExecutableA(s & Chr$(0), vbNullString, s2)
   If i > 32 Then
      FindExecutable = Left$(s2, InStr(s2, Chr$(0)) - 1)
   Else
      FindExecutable = ""
   End If
End Function

Conclusion :


pour utiliser cette api, appelez la fonction avec le nom valide d'un fichier.

exemple:
dim app
app = findexecutable("D:\file.doc")

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de us_30

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.