‘**************************************
‘ Name: !Start an exe within your app w/error handling!
‘ Description:starts an exe from within your application
‘ Author: Scotto
‘
‘ Inputs:None
‘
‘ Returns:None
‘
‘Assumes:None
‘
‘Side Effects:None
Sub 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