Simple & useful Error Reporting Function... Thought I'd share if with you guys :-)
Module mFunctions Public Function GetErrorInfo(ByVal ex As Exception) As String Dim sb As New System.Text.StringBuilder() Dim st As New System.Diagnostics.StackTrace(ex, True) Dim FileName As String = "" Dim Method As String = "" Dim LineNumber As String = "" sb.AppendLine("") For Each frame As System.Diagnostics.StackFrame In st.GetFrames() FileName = frame.GetFileName Method = frame.GetMethod().ToString LineNumber = frame.GetFileLineNumber If FileName <> "" Then sb.AppendLine("Filename : " + FileName) If Method <> "" Then sb.AppendLine("Method : " + Method) If LineNumber <> "" Then sb.AppendLine("LineN° : " + LineNumber) Next Return sb.ToString() End Function End Module
No comments:
Post a Comment