Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Oct 16, 2001



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Launch a File with its Associated Program

This code will allow you to launch a file with its associated program.
#If Win32 Then
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
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function ShellExecute Lib "SHELL" (ByVal hwnd%, _
ByVal lpszOp$, ByVal lpszFile$, ByVal lpszParams$, _
ByVal lpszDir$, ByVal fsShowCmd%) As Integer
Declare Function GetDesktopWindow Lib "USER" () As Integer
#End If
Public Const SW_SHOWNORMAL = 1

Function OpenFile(sFile As String) As Long
Dim Scr_hDC As Long
Scr_hDC = GetDesktopWindow()
StartDoc = ShellExecute(Scr_hDC, "Open", sFile, "", 
End Function
Jamie Vachon
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date