åpne filer med default programmer

[bonaqua]

korleis åpner ein f.eks eit word dokument i word, eller ei lyd fil i default lydavspilling. eller eit jpg bilde i f.eks paint?

dette skal gjeres i visual basic 6...

[alftore]

Ta en titt på denne API funksjonen.

 

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

Const SW_NORMAL = 1



Private Sub Command1_Click()

 Dim Result&

   Result = ShellExecute(Me.hwnd, "Open", _

            "1.jpg", "", "C:bilder", SW_NORMAL)

End Sub

 

Juster lpFile og lpDirectory etter eget behov.

lpFile = filnavnet som du ønsker å åpne

lpDirectory = stien til katalogen hvor filen ligger.

 

lpOperation kan ha verdier som open/print/explore. default er open.