como crear un archivo log???

[jc_moty]

Bueno, hace algun tiempo encontre un codigo para crear un archivo log de los errores que pueda dar tu aplicacion:

Código:

' En un modulo
' Asegurate de crear un archivo llamado Errors.log en el direcotorio de tu aplicación
Public Sub errLogger(ByVal lNum As Long, ByVal sDesc As String, ByVal sFrom As String)
    Dim FileNum As Integer
    FileNum = FreeFile
    Open App.Path & "\Errors.log" For Append As FileNum
    Write #FileNum, lNum, sDesc, sFrom, Now()
    Close FileNum
End Sub

' En el procedimiento
Private Sub Command1_Click()
    On Error GoTo Err_handler
    ' tus sentencias
    Exit Sub
Err_handler:
    If Err.Number <> 0 Then
        errLogger Err.Number, Err.Description, "Command1_Click"
        Err.Clear
        Resume Next
    End If
End Sub

Créditos a: Robert Smith & Brian Hoffleith

Espero te sirva
Saludos