Board logo

标题: [技术讨论] vbs中的"Err"[属性与方法] [打印本页]

作者: czjt1234    时间: 2012-9-28 15:47     标题: vbs中的"Err"[属性与方法]

本帖最后由 czjt1234 于 2012-9-28 16:11 编辑

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


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


方法
Clear                 清除所有错误信息

Raise                 主动设置一个错误信息


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

作者: czjt1234    时间: 2012-9-28 16:19

本帖最后由 czjt1234 于 2012-10-7 08:45 编辑

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

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



  1. On Error Resume Next
  2. CreateObject("Excel.Application").WorkBooks.Open "d:\test.xls"
  3. '这一行的意思是用 Excel 打开指定文件。前提是已装 Excel
  4. '当文件不存在时,就产生了错误
  5. MsgBox "错误代码: " & Err.Number      & vbCrLf & vbCrLf & _
  6.        "错误对象: " & Err.Source      & vbCrLf & vbCrLf & _
  7.        "错误说明: " & Err.Description & vbCrLf & vbCrLf & _
  8.        "帮助文件: " & Err.HelpFile    & vbCrLf & vbCrLf & _
  9.        "帮助文件主题的上下文 ID: " & Err.HelpContext
  10. Err.Source = "QQ.exe"           '自定义错误信息的对象
  11. Err.Description = "QQ20147578"  '自定义错误信息的说明
  12. Err.HelpFile = "yourHelp.hlp"   '自定义错误信息的帮助文件
  13. Err.HelpContext = 1             '自定义错误信息的帮助文件主题的上下文 ID
  14. Err.Raise vbObjectError + 1     '自定义错误信息代码
  15. 'vbs常数 vbObjectError = -2147221504 ,自定义错误信息代码应大于该值
  16. 'vbs自带的错误信息代码,范围是 0 ~ 65535
  17. '再来看错误信息
  18. MsgBox "错误代码: " & Err.Number      & vbCrLf & vbCrLf & _
  19.        "错误对象: " & Err.source      & vbCrLf & vbCrLf & _
  20.        "错误说明: " & Err.Description & vbCrLf & vbCrLf & _
  21.        "帮助文件: " & Err.HelpFile    & vbCrLf & vbCrLf & _
  22.        "帮助文件主题的上下文 ID: " & Err.HelpContext
  23. Err.Clear    '清除错误信息
  24. '看下初始状态的错误信息
  25. MsgBox "错误代码: " & Err.Number      & vbCrLf & vbCrLf & _
  26.        "错误对象: " & Err.source      & vbCrLf & vbCrLf & _
  27.        "错误说明: " & Err.Description & vbCrLf & vbCrLf & _
  28.        "帮助文件: " & Err.HelpFile    & vbCrLf & vbCrLf & _
  29.        "帮助文件主题的上下文 ID: " & Err.HelpContext
  30. 'Raise 方法也可同时定义所有错误信息
  31. Err.Raise 123, "QQ", "20147578", "d:\yourHelp.hlp", 456
  32. '再来看错误信息
  33. MsgBox "错误代码: " & Err.Number      & vbCrLf & vbCrLf & _
  34.        "错误对象: " & Err.source      & vbCrLf & vbCrLf & _
  35.        "错误说明: " & Err.Description & vbCrLf & vbCrLf & _
  36.        "帮助文件: " & Err.HelpFile    & vbCrLf & vbCrLf & _
  37.        "帮助文件主题的上下文 ID: " & Err.HelpContext
复制代码





欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2