Exécuter l'application liée à l'extension d'un fichier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 161 fois - Téléchargée 62 fois

Contenu du snippet

Si vous voulez :
- ouvrir un fichier .html ou .txt en utilisant le navigateur, ou l'éditeur par défaut
- ouvrir n'importe quel fichier sans vous demander quelle application est liée à l'extension de ce fichier (interrogation à ce poser en utilisant un Shell classique)

ce code est pour vous.

Source / Exemple :


'Déclarer cette fonction dans un module :

Public Declare Function ShellExecuteA Lib "shell32" (ByVal hwnd As Long, ByVal LPFile As String, ByVal PathFile As String, ByVal Other As String, ByVal Other2 As String, ByVal Param As Long) As Long

'Pour l'exécution :

Dim RetVal

RetVal = ShellExecuteA(0, "Open", "Chemin_et_nom_du_fichier", "", "", 10)

Conclusion :


Exemple : L'ouverture de C:\MesDocuments\Monfichier.xls se fera automatiquement par Excel

Il faut toutefois que l'extension du fichier à exécuter soit déjà lié à l'application, ce qui est généralement le cas.
Sinon, si vous voulez faire cette liaison en VB reportez vous au code dans la rubrique SHELL
"ASSOCIATION D'UNE EXTENSION A UNE APPLICATION (EX: *.DOC = MS WORD)" de jray.

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de Mikax

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 (cs_Darty)