qtp学习笔记----抛出异常处理函数

 '注:里面用到的writeLogMsg函数是我前面文章里写的一个函数,可以自动记录日志

For  i=1 to 2
Err.Clear
On Error Resume Next
   Select Case i
   case 1 Call 模块一()
   case 2  call 模块二()
   End Select
If Err.Number <> 0 Then
  WriteLogMsg("系统执行异常,请检查源代码" )

 WriteLogMsg( Err.Number ) '错误码
WriteLogMsg Err.Description  '错误描述
   WriteLogMsg("-------------------------------------------------------------------------" )
End if
Err.Clear
On Error goto 0
 Next