Running Under Command Prompt

bslaughter · #1 (**permalink**) December 29th, 2005, 10:52 AM

When I execute a .vbs file it always executes via the command prompt.

Is there a way to stop/modify this behavior?

Running XP Pro - Service Pak 2

Thanks,
Bill Slaughter

bslaughter · #2 (**permalink**) December 30th, 2005, 02:30 PM

For Example:

The below script will not display the err in a windows dialog.

It is displayed in the command box and is only seen if I execute it from the command prompt.

If I click on the file name in windows explorer the command prompt box appears and disappears so quick that the result is lost.

Option Explicit

Dim x, y

x = InputBox("Please enter a number to divide into 100.")
If x <> 0 Then
    y = 100 / x
    MsgBox "100 divided by " & x & " is " & y & "."
Else
    Err.Raise vbObjectError + 15000, _
        "ERR_MSG_UGLY.VBS", _
        "Hey, stupid, you can't enter a zero. It will " & _
        "cause a divide by zero error."
End If

Why doesn't the windows dialog box appear as shown in the book?

Thanks.

Bill Slaughter

Tandy1000SL GW-BASIC · #3 (**permalink**) May 5th, 2009, 04:09 PM

I am new to VBScript Programming; thus, I am unfamiliar with VBScript Error Objects.

However, I think that you probably should use a MsgBox for your Error Message.

EXAMPLE:

Code:

 MsgBox Err.Raise vbObjectError + 15000, _
"ERR_MSG_UGLY.VBS", _
"Hey, stupid, you can't enter a zero. It will " & _
"cause a divide by zero error."

Need to download code?

Navigation