<br />
‘**************************************<br />
‘ Name: !Start an exe within your app w/error handling!<br />
‘ Description:starts an exe from within your application<br />
‘ Author: Scotto<br />
‘<br />
‘ Inputs:None<br />
‘<br />
‘ Returns:None<br />
‘<br />
‘Assumes:None<br />
‘<br />
‘Side Effects:None</p>
<p>Sub LoadEXE(Dir As String)<br />
On Error GoTo err:<br />
X% = Shell(Dir, 1): NoFreeze% = DoEvents(): Exit Sub<br />
Exit Sub<br />
err:<br />
‘make your own error messages like mine<br />
‘ below, or use the default:<br />
If err.Number = 6 Then Exit Sub<br />
MsgBox “Please make sure that the application you are trying to<br />
launch is located in the correct folder.”<br />
& vbCrLf & “If not, do this and retry launching the application.”, vbExclamation<br />
‘default: MsgBox “Error:” & vbCrLf & err<br />
‘ .Description & vbCrLf & err.Number, vbExclamation</p>
<p>End Sub
