[Aporte] Manejar Errores en VB (logger de errores)

[‭‭‭‭jackl007]

Aqui les dejo un modulo que les permite guardar los errores de nuestras aplicaciones.

Modulo:

Código (vb) [Seleccionar] Expandir


Attribute VB_Name = "mdErrores"
' FINALIDAD: GESTIONA Y GRABA LOS ERRORES PRODUCIDOS EN EL PROGRAMA EN UN
'            FICHERO PLANO
' PARAMETROS
' ErrDesc: descripcion del error
' ErrMod:  localización del error
'Sacado de un programa OpenSource llamado Zas

Option Explicit
Public FileError As String
'FileError = "Error.log"

'llamada en los forms: 'GrabaErr Err.Description, Err.Number, "Main :: Gen"' 'esto lo cambias segun el procedimiento desde donde es llamado
Public Function GrabaErr(ErrDesc As String, ErrNum As String, ErrMod As String)
    Open App.Path & "\" & FileError For Append As #3
    Print #3, "------> "
    Print #3, "Version : " & App.Major & "." & App.Minor & "." & App.Revision
    Print #3, "Error en el modulo " & ErrMod
    Print #3, "Fecha y Hora: " & Date & " " & Time & " Error: " & ErrNum & " :: " & (ErrDesc)
    Print #3, "<------"
    Close #3
    MsgBox Err.Number & vbCrLf & Err.Description & vbCrLf & " Se ha grabado el error en " & FileError, vbCritical, "Error en programa"
End Function




Para el que quiera descargarlo:
http://www.4shared.com/file/39425216/6f9e611b/mdErrores.html

[Sancho.Mazorka]

Gracias x el aporte, un log para nuestras aplicaciones sencillo 


Sancho.Mazorka