Un log de mi programa

[occam25]

Te mando una funcion que hice para registrar en un archivo los errores que acurrieran durante la ejecución del programa.
Si lo que quieres es que registre los eventos puedes modificar la definición de la funcion a algo asi

Private Sub RegistrarEvento (Evento As String)

y cada vez que clickes un boton o lo que sea llamas a esta función y le pasas el tipo de evento.

Bueno, mi codigo:

Código:

Private Sub RegistrarError(ByVal Number As Integer, Description As String)

Dim fs, a
Dim cadena As String

Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(App.Path & "\" & "Error.Log") Then
    Set a = fs.OpenTextFile(App.Path & "\" & "Error.Log", 1)
    Do While Not a.AtEndOfStream
        cadena = cadena & a.ReadLine & vbCrLf
    Loop
    a.Close
    Set a = fs.OpenTextFile(App.Path & "\" & "Error.Log", 2)
    cadena = cadena & Now & " : Error " & Number & ": " & Description & vbCrLf
    a.WriteLine (cadena)
    a.Close
    List2.AddItem ("Registro de error creado.")
Else
    Set a = fs.CreateTextFile(App.Path & "\" & "Error.Log", True)
    cadena = Now & " : Error " & Number & ": " & Description & vbCrLf
    a.WriteLine (cadena)
    a.Close
    List2.AddItem ("Registro de error creado.")
End If

End Sub

Espero q te sea de ayuda.

Salu2