open file in its own application 1

[MatthewP]

There's got to be an easy way to do this.. I just want a button in a program to open a file in it's own application - eg if I point to a .html file in the code, it will open in whatever browser the user has set as default.

Thanks,
Matt.

 

[MarkSweetland]

Public 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 lng_retValue As Long
lng_retValue = ShellExecute(0, "open", "[URL unfurl="true"]http://mywebsite/page",[/URL] "", 0, 1)

Mark

 

[MatthewP]

Wow, bit more code than I thought!

Thanks for your help,
Matt.

 

[strongm]

Two declarations and one line of code is too much??!! <grin>

 

[Mavors]

How is this for easier...

private sub Command_Click()
   Shell ("start [URL unfurl="true"]http://www.webpage.com")[/URL]
end sub

If that isn't easy enough then I can not help much more.


Give that one a try Mavors
Cincinnati, Ohio

 

[MatthewP]

Perfect! No, 2 declarations and one line isn't too much, I just figured there had to be something really simple that I'd missed - and there it is!

Thanks all,
Matt.