On Error Resume Next
Err.Clear
Set myObj = CreateObject("SomeKindOfClassThatDoesNotExist")
If Err.Number <> 0 Then
WScript.Echo "Error: " & Err.Number
WScript.Echo "Error (Hex): " & Hex(Err.Number)
WScript.Echo "Source: " & Err.Source
WScript.Echo "Description: " & Err.Description
Err.Clear
End If
On Error Goto 0
WScript.Echo "This text will always print."
vbs 异常
最新推荐文章于 2024-06-25 16:22:04 发布
本文深入探讨了编程中遇到错误时的处理方式,通过使用On Error Resume Next和On Error Goto指令来捕获并处理错误。详细介绍了如何通过清除错误和输出错误信息来提高程序的健壮性和易维护性。
1919

被折叠的 条评论
为什么被折叠?



