Ouvrir tous les fichiers

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 863 fois - Téléchargée 47 fois

Contenu du snippet

Ce code sert juste à ouvrir n'importe quel fichier sans passer par start.exe ou un autre programme associé au fichier.

Source / Exemple :


Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Dim Ouvrir As String
ouvrir = "http://www.vbfrance.com" 'ouvre la page dans le navigateur ouvert/par défaut
OU ouvrir = "c:\machin\truc.txt"
OU ouvrir = "c:\truc.exe"
etc etc...
ShellExecute Me.hwnd, vbNullString, ouvrir, "", vbNullString, 1

Conclusion :


Voilà, si vous avez des remarques... !

A voir également

Ajouter un commentaire Commentaires
Messages postés
9
Date d'inscription
vendredi 16 avril 2004
Statut
Membre
Dernière intervention
11 juin 2013

Superbe, un grand merci.
Messages postés
6
Date d'inscription
mardi 20 novembre 2007
Statut
Membre
Dernière intervention
9 avril 2014

Trop bon ca marche!
Messages postés
4
Date d'inscription
mardi 3 mai 2005
Statut
Membre
Dernière intervention
14 septembre 2007

je ne sais pas ou ecris ce code ? est ce que tu peux m'expliquer ?
Messages postés
7
Date d'inscription
vendredi 21 mars 2003
Statut
Membre
Dernière intervention
14 septembre 2007

Génial !
J'ai tellement vu d'autres sources compliquées qui ne fonctionnent pas. Faire simple c'est difficile, alors bravo !
Messages postés
130
Date d'inscription
jeudi 22 décembre 2005
Statut
Membre
Dernière intervention
23 novembre 2011

Hey, moi quand je fais l'essai depuis VB tous est impec mais une fois compilé le fichier ne s'ouvre pas
Dim Document as string
Document = folder & "" & fichier & ".html"
Retour = ShellExecute(Me.hWnd, vbNullString, Document, "", vbNullString, 1)
Afficher les 12 commentaires

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.