<br /> &#8216;**************************************<br /> &#8216; Name: !Start an exe within your app w/error handling!<br /> &#8216; Description:starts an exe from within your application<br /> &#8216; Author: Scotto<br /> &#8216;<br /> &#8216; Inputs:None<br /> &#8216;<br /> &#8216; Returns:None<br /> &#8216;<br /> &#8216;Assumes:None<br /> &#8216;<br /> &#8216;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 /> &#8216;make your own error messages like mine<br /> &#8216; below, or use the default:<br /> If err.Number = 6 Then Exit Sub<br /> MsgBox &#8220;Please make sure that the application you are trying to<br /> launch is located in the correct folder.&#8221;<br /> &#038; vbCrLf &#038; &#8220;If not, do this and retry launching the application.&#8221;, vbExclamation<br /> &#8216;default: MsgBox &#8220;Error:&#8221; &#038; vbCrLf &#038; err<br /> &#8216; .Description &#038; vbCrLf &#038; err.Number, vbExclamation</p> <p>End Sub

Related Posts

  • 9653- WednesdayMarch 18, 2009 9653- Wednesday Bro's girlfriend / possible mother to his kid Shannon has been found, and she and her […]
  • 9638 – Thursday – repairing internet connection on the eeeMarch 5, 2009 9638 – Thursday – repairing internet connection on the eee See entry comments for mysql code snips in use. Saving on j:/uiia/qmysql/ --"modem […]
  • Wednesday – 9396 –August 13, 2008 Wednesday – 9396 – I officially know more about Rsync than I ever thought I would. It's a mighty handy […]
  • 9335 – ThursJune 26, 2008 9335 – Thurs That Meme - Post 3 things you've done in your lifetime that you don't think anybody else […]
  • 9268 – Sunday –May 4, 2008 9268 – Sunday – Bagel, cream cheese, strawberries and pineapple for breakfast - BHK and I slowly worked […]

Leave a Reply