Imports System.IO
Module Module1
Sub Main()
Dim SourceFile As StreamReader
Try
SourceFile = New StreamReader("FilenameISBad.XXX")
Catch Except As Exception
Console.WriteLine(Except.Message)
Console.WriteLine(Except.Source)
Console.WriteLine(Except.StackTrace)
Console.WriteLine(Except.TargetSite.Name)
End Try
End Sub
End Module
|