document.write('
');
document.write(' \'Returns a string representing a full stack for a passed in exception and all inner exceptions
');
document.write(' \'will only get the first 50 inner exceptions to prevent stack overflow
');
document.write(' Private Function fullStackTrace(ByVal ex As Exception) As String
');
document.write(' If ex Is Nothing Then
');
document.write(' Throw New ArgumentException("ex can not be null", "ex")
');
document.write(' End If
');
document.write(' Dim outputStack As New System.Text.StringBuilder
');
document.write(' outputStack.Append(ex.StackTrace)
');
document.write(' Dim innerReferences As Byte = 0 \'used to ensure memory does not run out
');
document.write(' \'during stack looping
');
document.write(' Dim innerException As Exception = ex.InnerException
');
document.write(' While Not innerException Is Nothing _
');
document.write(' AndAlso innerReferences < 50
');
document.write(' outputStack.Insert(0, innerException.StackTrace)
');
document.write(' innerException = innerException.InnerException
');
document.write(' innerReferences += CByte(1)
');
document.write(' End While
');
document.write(' Return outputStack.ToString
');
document.write(' End Function
');
document.write('
');
document.write('
');