[技术讨论] vbs中的"Err"[属性与方法]

czjt1234

Err 对象是 vbs 内置全局对象，用于处理错误信息。可直接引用，不用创建


属性
Description           错误信息的说明
HelpContext           帮助文件主题的上下文 ID，初始值 0
HelpFile              错误信息的帮助文件
Number                错误信息的代码,。初始值 0
Source                错误信息的对象


方法
Clear                 清除所有错误信息
Raise                 主动设置一个错误信息


Err 对象及其属性、方法，都可以在 Script5.6.chm 里找到参考

czjt1234

下面是属性和方法的参数，及用法举例

代码测试环境：winxpsp3 IE8 Wscript版本5.7.0.18066

On Error Resume Next

CreateObject("Excel.Application").WorkBooks.Open "d:\test.xls"
'这一行的意思是用 Excel 打开指定文件。前提是已装 Excel
'当文件不存在时，就产生了错误

MsgBox "错误代码： " & Err.Number      & vbCrLf & vbCrLf & _
       "错误对象： " & Err.Source      & vbCrLf & vbCrLf & _
       "错误说明： " & Err.Description & vbCrLf & vbCrLf & _
       "帮助文件： " & Err.HelpFile    & vbCrLf & vbCrLf & _
       "帮助文件主题的上下文 ID： " & Err.HelpContext

Err.Source = "QQ.exe"           '自定义错误信息的对象
Err.Description = "QQ20147578"  '自定义错误信息的说明
Err.HelpFile = "yourHelp.hlp"   '自定义错误信息的帮助文件
Err.HelpContext = 1             '自定义错误信息的帮助文件主题的上下文 ID

Err.Raise vbObjectError + 1     '自定义错误信息代码
'vbs常数 vbObjectError = -2147221504 ，自定义错误信息代码应大于该值
'vbs自带的错误信息代码，范围是 0 ~ 65535

'再来看错误信息
MsgBox "错误代码： " & Err.Number      & vbCrLf & vbCrLf & _
       "错误对象： " & Err.source      & vbCrLf & vbCrLf & _
       "错误说明： " & Err.Description & vbCrLf & vbCrLf & _
       "帮助文件： " & Err.HelpFile    & vbCrLf & vbCrLf & _
       "帮助文件主题的上下文 ID： " & Err.HelpContext

Err.Clear    '清除错误信息

'看下初始状态的错误信息
MsgBox "错误代码： " & Err.Number      & vbCrLf & vbCrLf & _
       "错误对象： " & Err.source      & vbCrLf & vbCrLf & _
       "错误说明： " & Err.Description & vbCrLf & vbCrLf & _
       "帮助文件： " & Err.HelpFile    & vbCrLf & vbCrLf & _
       "帮助文件主题的上下文 ID： " & Err.HelpContext

'Raise 方法也可同时定义所有错误信息
Err.Raise 123, "QQ", "20147578", "d:\yourHelp.hlp", 456

'再来看错误信息
MsgBox "错误代码： " & Err.Number      & vbCrLf & vbCrLf & _
       "错误对象： " & Err.source      & vbCrLf & vbCrLf & _
       "错误说明： " & Err.Description & vbCrLf & vbCrLf & _
       "帮助文件： " & Err.HelpFile    & vbCrLf & vbCrLf & _
       "帮助文件主题的上下文 ID： " & Err.HelpContext
复制代码