Tools Links Login

Execute a file Correctly

It correctly executes a program

Original Author: AdamRC

Code

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."

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 115 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Comments

No comments have been added for this post.

You must be logged in to make a comment.