by T-REX Software (14 Submissions)
Category: Files/File Controls/Input/Output
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Wed 24th March 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Lauches an application based on file extension
API Declarations
Private Declare Function GetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long
Scr_hDC = GetDesktopWindow ()
'change "Open" to "Explore" to bring up file explorer
StartDoc = ShellExecute (Scr_hDC, "Open", DocName, "", "C:\", 1)
'end function
'Place the following code in under a command button or in a menu, etc...
dim r as long
r = startdoc ("C:\windows\arcade.bmp")