Public Class GenericExceptionsCaughtFixed
 
        Dim inStream  As FileStream 
        Dim outStream As FileStream 
 
        Sub New(inFile As String, outFile As String)
 
            Try
                inStream = File.Open(inFile, FileMode.Open)
 
            ' Fix the first violation by catching a specific exception.
            Catch ex As FileNotFoundException
                Console.WriteLine("Unable to open {0}.", inFile)
            End Try
 
            Try
                outStream = File.Open(outFile, FileMode.Open)
 
            ' Fix the second violation by re-throwing the generic 
            ' exception at the end of the catch block.
            Catch
                Console.WriteLine("Unable to open {0}.", inFile)
            Throw
            End Try
 
        End Sub
 
    End Class

----
Meine Komponenten sind:
Visual Studio 2008 (Standard) SP 1
Windows 7 SP 1