Lancer l'appli associée à une extension, automatiquement.

Soyez le premier à donner votre avis sur cette source.

Vue 6 100 fois - Téléchargée 523 fois

Description

C'est très simple, et ça utilise la fonction ShellExecute, qui va chercher dans windaube le programme associé à chaque extension de fichiers... on clique dans un .DOC et ca lance word, où qu'il soit...
Désolé, mais ca peut servir .(
Le projet est zippé.

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

Private Sub Command1_Click()
End
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
On Error Resume Next
Dim Document As String
Document = File1.Path & "\" & File1.filename
ShellExecute Me.hWnd, vbNullString, Document, "", vbNullString, 1
End Sub

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
mercredi 21 octobre 2009
Statut
Membre
Dernière intervention
24 octobre 2009

merci merci,une aide tres Considérable pour mon cas,et bonne continuation
Messages postés
2
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
19 juin 2007

merci beaucoup ,moi ca ma servit .....
Messages postés
169
Date d'inscription
vendredi 27 septembre 2002
Statut
Membre
Dernière intervention
27 février 2009
1
Ah Non... car il faut utiliser une autre API... la voici...
(dans une form avec filelistbox)

______________
Private Declare Function FindExecutable Lib "shell32.dll" _
Alias "FindExecutableA" (ByVal lpFile As String, _
ByVal lpDirectory As String, ByVal lpResult As String) As Long

Private Function FichierAssocie(stFichier As String, stChemin As String) As String
Dim stRep As String
Dim lgRep As Long
stRep = Space$(250)
lgRep = FindExecutable(stFichier, stChemin, stRep)
stRep = Left$(stRep, InStr(1, stRep, vbNullChar) - 1)
FichierAssocie = stRep
MsgBox stRep, , "Pour Alan71"
End Function


Private Sub File1_Click()
FichierAssocie File1.filename, File1.Path
End Sub

_______________

Bonne continuation .)
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004

Le pb, C que çà retourne pô le nom de prg lui même, ni sont Path...

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.