求助:当程序产生错误时,自动将错误信息写入到程序目录下的一个文本文件中,该如何实现?
求助:当程序产生错误时,自动将错误信息写入到程序目录下的一个文本文件中,错误信息包括(错误号,错误描述,出错代码)方便以后采集信息完善功能,请问该如何实现?能提供代码最好啦。谢谢各位。Private Sub Form_Load()少了个斜杠 App.Path & "\err.log",如果是磁盘根目录就不需要,自行判断。 codesmart 之类的插件,能自动生成这样的错误处理,很是方便 我也写过一个插件,可以给各个过程或者函数添加错误处理代码,很是方便。但是没有将错误信息写入本地文件。有必要的话你可以稍稍修改下,带源码的。
On Error GoTo err1
Dim i%
i = 1 / 0
Exit Sub
err1:
Dim s$
s = "错误发生时间:" & Now & vbCrLf & _
"错误号:" & Err.Number & vbCrLf & _
"错误描述:" & Err.Description & vbCrLf & _
"错误过程:Form_Load" & vbCrLf
Open App.Path & "err.log" For Append As #1
Print #1, s
Close #1
Shell "notepad """ & App.Path & "err.log""", 1
End Sub
VB6IDE_InsertErrHand_Addin
http://code.google.com/p/vsaddin/downloads/list 2喽的方法是自动接着上回的错误信息,写入最后一行不? 如果就写一行,不保存以前的错误的话,那就不用append打开
不过append到最后才是比较合理的写入错误的方法 白猫的马甲甲,阵阵多啊~~~
Append 就是追加形式。
补充:VB , 基础类