Public Class ERROR_LOGGING
 
Public Shared Sub writeError(ByVal sPathName As String, ByVal sErrMsg As String)
 
        Dim LogFormat As String = DateTime.Now.ToShortDateString & " " & DateTime.Now.ToLongTimeString & " ==> "
        Dim year As String = DateTime.Now.Year.ToString
        Dim month As String = DateTime.Now.Month.ToString
        Dim day As String = DateTime.Now.Day.ToString
        Dim ErrorTime As String = month + "_" + day + "_" + year
 
        Dim fileName As String = sPathName + ErrorTime + ".log" 'Server.MapPath("TestMsg.txt")
 
        IO.File.AppendAllText(fileName, LogFormat + sErrMsg + ControlChars.NewLine + ControlChars.NewLine)
 
    End Sub
 
 
 
 
 
 
End Class
 
 
 
 ' Example on its usage I use it in the global.asx file
 
Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs when an unhandled error occurs
        Try
            ERROR_LOGGING.writeError(Server.MapPath("~/Logs/ErrorLog/"), Server.GetLastError.Message + Server.GetLastError.InnerException.ToString)
            Response.Redirect("~/security/index.aspx")
        Catch ex As Exception
 
        End Try
    End Sub