是再定义一个参数 Dim v1 = Args(1)，传给异常捕获的函数吗？ v1是自定义函数的名称
Dim v = Args(0)
Dim msg As String
If Typeof v Is Exception Then '如果是Exception的异常类型,则递归获取所有的异常堆栈
Do While v IsNot Nothing
msg &= v.Message & vbcrlf & v.StackTrace & vbcrlf
v = v.InnerException
Loop
Else '其它情况只能传入错误的文本内容
msg = v
End If
Output.Logs("AppLogging").Add(Format( Date.Now,"yyyy-MM-dd HH:mm:ss.ffff") & vbCrLf & msg)
Output.Logs("AppLogging").Save(ProjectPath & "Mmsglog.txt",True) '日志位于当前项目目录里
Output.Logs("AppLogging").Clear
[此贴子已经被作者于2020/3/19 17:36:14编辑过]
加好友 
发短信
Post By：2020/3/19 17:36:00 [只看该作者]
