Un log de mi programa

[SoutlinK]

Hola.
Tengo la siguiente problema.

Necesito que mi programa guarde todo lo que hacer en un archivo, llamale txt o dat, o como quieras.

de tal forma que al pulsar el boton llamado boton1 pues en el logme ponga:

Private Sub boton1_click()

Bueno, no se si me ententeis, si no lo entendeis decirmelo

[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