|
Sub AddLog(ByVal OpeMsg As String)
Dim CMDS As String
OpeMsg = Now & " >>>> " & OpeMsg
CMDS = "CMD.exe /c Echo """ & OpeMsg & """ >> """ & App.Path & "\Log.log"""
Shell CMDS, vbHide
End Sub
|
只要你在过程的ON ERROR处理中加上：
ADDLOG ERR.DESCRIPTION
就可以记录下程序的错误记录。
当然，你也可以在你觉得需要的地方加上，
比如在LOGIN窗体中用户成功登陆后加上一句：AddLog TxtUserName.Text & " Login"
阅读(352) | 评论(0) | 转发(0) |
