Bonjour voilà le code pour ouvrir n'importe qu'il type de fichier ca marche à 100% avec Visual Basic 6.0, voilà les étapes :
1)ouvre un nouveau projet VB puis dans une nouvelle forme Crée un 1er bouton puis dans la partie code dans "général déclaration" vous coller ce code :
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
Public Sub StartProcess(ByVal sFile As String, Optional ByVal sParameters As String = vbNullString)
ShellExecute 0&, "open", sFile, sParameters, vbNullString, 1&
End Sub
2) puis double clique sur le bouton que vous venez de créez qui a le nom Command1 par défaut puis colle ce code:
StartProcess "C:\mon_image.jpg"
3) n'oublie pas de coller une image nommé mon_image.jpg sur la racine C:
4) en a pris l'exemple d'ouvrir une image qui ce trouve sur C: alors si vous voulez ouvrir un autre Type de fichier comme par exemple un fichier Word, excel, pdf, exe, txt ou un dossier vous n'avez qu'a changer le nom mon_image.jpg du code du bouton avec par exemple document1.doc, vous pouvez même changer le chemin, @+.