by Daniel Errante (8 Submissions)
Category: Complete Applications
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Date Added: Wed 3rd February 2021
Rating: 
(13 Votes)
starts an exe from within your application
VBcodersSub LoadEXE(Dir As String)
On Error GoTo err:
X% = Shell(Dir, 1): NoFreeze% = DoEvents(): Exit Sub
Exit Sub
err:
'make your own error messages like mine below, or use the default:
If err.Number = 6 Then Exit Sub
MsgBox "Please make sure that the application you are trying to launch is located in the correct folder." & vbCrLf & "If not, do this and retry launching the application.", vbExclamation
'default: MsgBox "Error:" & vbCrLf & err.Description & vbCrLf & err.Number, vbExclamation
End Sub