求助：当程序产生错误时，自动将错误信息写入到程序目录下的一个文本文件中，该如何实现？

求助：当程序产生错误时，自动将错误信息写入到程序目录下的一个文本文件中，错误信息包括（错误号，错误描述，出错代码）方便以后采集信息完善功能，请问该如何实现？能提供代码最好啦。谢谢各位。

Private Sub Form_Load()



    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

少了个斜杠 App.Path & "\err.log"，如果是磁盘根目录就不需要，自行判断。 codesmart 之类的插件，能自动生成这样的错误处理，很是方便我也写过一个插件，可以给各个过程或者函数添加错误处理代码，很是方便。但是没有将错误信息写入本地文件。有必要的话你可以稍稍修改下，带源码的。

VB6IDE_InsertErrHand_Addin
http://code.google.com/p/vsaddin/downloads/list 2喽的方法是自动接着上回的错误信息，写入最后一行不？如果就写一行，不保存以前的错误的话，那就不用append打开
不过append到最后才是比较合理的写入错误的方法白猫的马甲甲，阵阵多啊～～～

引用 1 楼 sysdzw 的回复:

VB code
Private Sub Form_Load()

    On Error GoTo err1
    Dim i%
    i = 1 / 0

    Exit Sub
err1:
    Dim s$
    s = "错误发生时间:" & Now & vbCrLf & _
        "错误号:" & Err.Number &……

引用 5 楼 wxl565 的回复:

2喽的方法是自动接着上回的错误信息，写入最后一行不？

Append 就是追加形式。

补充：VB ,  基础类