Guardar eventos en un registro .txt

[renga73]

Lo que quiero hacer es q mi aplicacion guarde en un .txt los eventos q van ocurriendo en tiempo de ejecucion. Por ejemplo al clickear en un boton que me registre q ese boton fue clikeado en tal fecha y hora.
Gracias

[piojoman]

para hacer eso tenes que hacer un Function y despues lo llamas desde cada evento que necesites, ejemplo;

Private Sub Boton1_Click()
RegEvento ("Apretó el Botón") 'llama a la funcion y se indica que hace.
End Sub
Private Sub Form_Load()
RegEvento ("Cargó") 'llama a la funcion y se indica que hace.
End Sub
Function RegEvento(Mensaje As String)
Open "C:\Lalala.txt" For Append As #1 'abre el archivo es esa ruta (cambiarla)
Write #1, Mensaje, Format(Now, "dd/mm/yyyy" & "-" & "hh:mm:ss") 'escribe el mensaje mas la fecha
Close #1
End Function

O sea, en cada boton y demas agregar la linea RegEvento("Lo que queres que diga") y ya esta
bye!

[renga73]

gracias amigo me fue de mucha utilidad eso