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

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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