This article describes the Script control Error object properties and
provides sample code that illustrates its use.
The script control Error object provides rich information to the host
application regarding script errors. The following properties are
Number Error number.
Description Error message.
Line The line number the error occurred on (1 based).
Column The column number the error occurred on (0 based).
Text* The text of the line that caused the error.
Source** What component caused the error.
HelpFile*** Help file name provided by the error source.
HelpContext*** Help context provided by the error source.
* The Text property is blank for run-time errors, but contains data for
** The Source property for VBScript is either Microsoft VBScript
compilation error or Microsoft VBScript run-time error. If a different
scripting language is used, the Source may be different.
*** The HelpFile and HelpContext properties are blank except for user
IMPORTANT: Microsoft provides programming examples for illustration only,
without warranty either expressed or implied, including, but not limited
to, the implied warranties of merchantability and/or fitness for a
particular purpose. This article assumes that you are familiar with the
programming language being demonstrated and the tools used to create and
- In Visual Basic, create a new project (Form1 is created by default).
- Click Components on the Project menu, and then select the "Microsoft
Script Control 1.0" check box.
- Add the Script control (ScriptControl1), a text box (Text1), and a
command button (Command1) to Form1. Set the MultiLine property of the
text box to TRUE. For ease of use, change the size of Text1 so that it
accommodates 5 lines with 60 character each.
- Add the following code to Form1:
Private Sub Command1_Click()
On Error Resume Next
.Language = "VBScript"
.AllowUI = True
If Err Then
MsgBox Err & " " & Error
Private Sub ListErrors(S As ScriptControl)
Debug.Print "Number:", .Number
Debug.Print "Source:", .Source
Debug.Print "Desc:", .Description
Debug.Print "Line: " & .Line, "Column: " & .Column
Debug.Print "Text:", .Text
Debug.Print "Help File:", .HelpFile
Debug.Print "Help Context:", .HelpContext
- Run Form1 and open the Debug window.
- Type the following script in the text box:
MsgBox == "Hello World"
Err.Raise 555, "Test", "Custom Error", "test.hlp", 5
- Click the command button. As a result, the following error appears in
the Debug window (the actual output may vary depending on the version of
the script control you are using):
Source: Microsoft VBScript compilation error
Desc: Syntax error
Line: 2 Column: 16
Text: MsgBox == "Hello World"
Help Context: 0
- Remove the == from the MsgBox line and click the command button again.
- The MsgBox appears and then error "555 Custom Error". The Debug Window
displays the following:
NOTE: The column number may vary depending on whether you cut-and-paste
the code or type it in manually without all the leading spaces.
Desc: Custom Error
Line: 3 Column: 8
Help File: test.hlp
Help Context: 5
Script control Help topic: Error object
For information about obtaining the Script control, please see the
following article in the Microsoft Knowledge Base:
: INFO: Where to Obtain the Script Control
(c) Microsoft Corporation 1998, All Rights Reserved. Contributions by
Malcolm Stewart, Microsoft Corporation