codice:
Try
                Dim log As String = Configuration.ConfigurationSettings.AppSettings.Item("LogExFileName")
                Console.WriteLine("Scrittura di una eccezione in esecuzione...")
                log = log & "LogException" & Format(Now, "ddMMyyyy") & ".txt"
                Dim SwFromFileTrue As StreamWriter = New StreamWriter(log, True)
                SwFromFileTrue.WriteLine("Generata eccezione: " & ex.Message.ToString & " " & Format(Now, "yyyy-MM-dd hh:mm"))
                SwFromFileTrue.Flush()
                SwFromFileTrue.Close()
                Console.WriteLine("Scrittura eccezione eseguita correttamente...")
            Catch ex1 As DirectoryNotFoundException
                Throw New Exception("Eccezione in TraceException")
            End Try
in debg continua a darmi eccezione invece di mostrarmela a video