VBS基础篇 Err对象

On Error Resume next '忽略运行时产生的所有错误
MsgBox 5/0
MsgBox Err.Number '输出错误的数值
Err.Clear '清空所有的错误信息
MsgBox Err.Number '输出0

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 '清除错误

Desc = Err.Description '返回Error的描述信息
Err.Description = "类型不匹配" '设置Error的描述信息

HelpContext = Err. HelpContext '返回Error的帮助主题
Err. HelpContext = "类型不匹配" '设置Error的帮助主题

HelpFile = Err. HelpFile '返回HelpFile的地址
Err. HelpFile = "c:\test.txt" '设置HelpFile的地址

Number = Err. Number '返回Error的id
Err. Number = "c:\test.txt" '设置Error的id

Source = Err. Source '返回Error的对象或者应用程序名称
Err. Source = "box" '设置Error的对象或者应用程序名称