by AdamRC (1 Submission)
Category: Files/File Controls/Input/Output
Compatability: Visual Basic 3.0
Difficulty: Intermediate
Date Added: Wed 3rd February 2021
Rating: (2 Votes)
It correctly executes a program
DirPath = [Path of file]
On Error GoTo err:
X% = Shell(DirPath, 1): NoFreeze% = DoEvents(): Exit Sub
Exit Sub
err:
If err.Number = 6 Then Exit Sub
MsgBox "Please make sure you have the correct path and then try again."