Dim globalErrHanler '定义全局对象
Function FuncWithError() '包含错误的方法
Dim x,y
x = 2 + 4
y = x-2-4
x = x/y
End Function
Function FuncWithErrHanler()
On Error Resume Next
Call FuncWithError() '异常处理
If Err.Number <> 0 Then
Call globalErrHanler()
End If
'WSH.Echo "aaa"
End Function
Public Function OnErrorGoTo(ByVal FunctionName)
Set globalErrHanler = GetRef(FunctionName)
End Function
Public Function errHandler()
WSH.Echo "Source = " & Err.Source & ", # = " & Err.Number &", Desc=" & Err.Description
End Function
OnErrorGoTo "errHandler"
Call FuncWithErrHanler()
VBS 模拟Try-Cathch异常处理的方法
最新推荐文章于 2015-09-04 17:02:00 发布