VBS教程：对象-Err
投稿：mdxy-dxy
Err
含有关于运行时错误的信息。接受用于生成和清除运行时错误的 Raise 和 Clear 方法。
说明
Err 对象是一个具有全局范围 —的固有对象：不必在您的代码中创建它的示例。Err的属性被一个错误 —的生成器设置：Visual Basic,自动对象，或 VBScript 程序。
Err 对象的默认属性是 number。Err.Number 含有一个整数，且可由 Automation 对象使用以返回 SCODE。
当发生运行时错误时，Err 的属性由标识错误的唯一信息以及可用于处理它的信息填充。要在代码中生成运行时错误，请用 Raise 方法。
Err 对象属性被重新设置为零或零长度字符串 ("")。Clear 方法可被用于显式地重新设置 Err。
下面的示例说明了 Err 对象的用法：
On Error Resume Next
Err.Raise 6 '产生溢出错误。
MsgBox ("Error # " & CStr(Err.Number) & " " & Err.Description)
Err.Clear '清除错误。
Err对象是一个具有全局范围的内部对象，含有关于错误的所有信息。
On Error Resume next 忽略运行时产生的所有错误
On Error Goto 0 取消忽略错误措施
主要方法有：Clear、Raise
主要属性有：Description、HelpContext、HelpFile、Number、Source
其属性及方法的详细说明见下面的示例说明：
Err对象的方法
Clear
描述：清空Err对象当前所有的属性，也就是清空错误
语法：Err.Clear
示例：
On Error Resume next '忽略运行时产生的所有错误
MsgBox 5/0
MsgBox Err.Number '输出错误的数值
Err.Clear '清空所有的错误信息
MsgBox Err.Number '输出0
Raise
描述：定义一个运行时的错误
语法：Err.Raise(number,source,description,helpfile,helpcontent)
参数：Number：用于标记错误号
Source 标记产生错误的对象或者应用程序名称
Description：关于错误的描述信息
Helpfile：help文件的有效路径
Helpcontent：help文件的主题
示例：
On Error Resume Next
Err.Raise 22,"VBS脚本","溢出啦","c:\test.txt" '定义一个运行时的错误
MsgBox "错误：" & vbCrLf _
& "Number:" & Err.Number & vbCrLf _
& "Source:" & Err.Source & vbCrLf _
& "Description:" & Err.Description & vbCrLf _
& "Helpfile:" & Err.HelpFile
Err.Clear '清除错误
Err对象的属性
Description
描述：返回或者设置Error的描述
语法：Description(conid)
示例：
Desc = Err.Description '返回Error的描述信息
Err.Description = "类型不匹配" '设置Error的描述信息
HelpContext
描述：返回或者设置指定帮助信息的主题
语法：HelpContext(string)
示例：
HelpContext = Err. HelpContext '返回Error的帮助主题
Err. HelpContext = "类型不匹配" '设置Error的帮助主题
HelpFile
描述：返回或者设置help文件的地址
语法：HelpFile(FilePath)
示例：
HelpFile = Err. HelpFile '返回HelpFile的地址
Err. HelpFile = "c:\test.txt" '设置HelpFile的地址
Number
描述：返回或者设置一个表示错误的数值
语法：Number(errid)
示例：
Number = Err. Number '返回Error的id
Err. Number = "c:\test.txt" '设置Error的id
Source
描述：返回或者设置报告错误的对象（或者应用程序的名称）
语法：Source(string)
示例：
Source = Err. Source '返回Error的对象或者应用程序名称
Err. Source = "box" '设置Error的对象或者应用程序名称