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

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

复制代码