Fehlerbehandlung mit try-catch bzw. if-Abfrage Es werden zwei Möglichkeiten der Fehlerbehandlung betrachtet: einmal das altbewährte "if", zum anderen das neue "try / catch" Konstrukt.
Autor:   David Mertner	Bewertung:	Views:  16.939
ohne Homepage	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Anlässlich einer längeren Diskussion im Forum hielt ich es für angebracht, mich etwas tiefer mit dem "try - catch - finally" Konstrukt zu beschäftigen. Da das ganze theoretisch immer sehr trocken ist, wollen wir uns das einmal an einem konkreten Beispiel ansehen. Nehmen wir mal an, wir haben den Pfad einer Datei, die wir öffnen wollen. Was kann denn da alles schief gehen, um das wir uns kümmern müssen? Das wahrscheinlichste ist sicher, dass die Datei gar nicht existiert. Oder besser: nicht mehr, weil irgend ein Bösewicht (oder wir selber ;) ) sie gelöscht oder umbenannt haben. Was können noch für Fehlerfälle auftreten? Vielleicht scheitert das Lesen der Datei, weil einige Sektoren auf der Festplatte defekt sind (eher unwahrscheinlich) oder wir haben keine Berechtigung zum Lesen. (uninteressant bei Einbenutzer-Systemen)

Theoretisch könnte man das natürlich weiterführen bis zum Stromausfall, unvorhergesehenem Verlust von Betriebssystemmodulen und so fort. Letzten Endes wird man nie wirklich jeden Fehler beseitigen bzw. auf jeden potentiellen Fehler eine Abhilfe parat haben können. Allerdings lässt sich sehr wohl der Großteil der Fehler behandeln! Als Beispiel könnte ich etwa ein C-Programm von mir aufführen, das ich 1996 geschrieben habe und das täglich etwa vier mal auf eine Datei zugreift. Da gab es bei einigen tausend Zugriffen eine Handvoll (abgefangene) Fehler, weil die Datei nicht vorhanden oder das Laufwerk nicht zugreifbar war, aber ansonsten kam es da zu keinerlei sonstigem Fehler. Warum erzähl ich das? Na, ganz einfach: als Beispiel dafür, dass Fehler meistens gewissen Wahrscheinlichkeiten unterliegen, nach denen sie auftreten. Alltägliche Fehler besitzen eine höhere Wahrscheinlichkeit und sollten daher auch konsequent behandelt werden. Fehler, die in 1000 Jahren einmal auftreten, kümmern in der Regel niemanden bzw. haben einen Dominoeffekt zur Folge. (etwa, wenn man einen laufenden Rechner zum Fenster hinaus wirft ;) ) Um ein System lauffähig zu halten, ist es darum zweckmäßig (und absolut erforderlich!) unter normalen Umständen auftretbare Fehler zu behandeln.

Jetzt habe ich aber wirklich lange genug gelabert - jetzt gibt es endlich ein bisschen Code (Erläuterung folgt im Anschluß)

Dim Stopuhr As System.Environment
Dim Datei As FileStream
Dim Dateipfad As String = "c:\"
Dim Dateiname As String = "michgibtesnicht.txt"
 
Dim i As Integer
Dim Anzahl As Integer = 10000
 
Anfang = Stopuhr.TickCount
For i = 1 To Anzahl
  Try
    ' MsgBox("Versuche die Datei zu lesen ...")
    Datei = File.Open(Dateipfad & Dateiname, FileMode.Open) ' (1)
    ' MsgBox("Die Datei ist vorhanden. Es kann gelesen werden ...")
 
    Catch Ausnahme As FileNotFoundException
      ' MsgBox("Die Datei existiert am angegebenen Ort nicht!", MsgBoxStyle.Critical, "Fehler !")
 
    Catch Ausnahme As DirectoryNotFoundException
      ' MsgBox("Das angegebene Verzeichnis existiert nicht!", MsgBoxStyle.Critical, "Fehler !")
 
    Catch Ausnahme As IOException
      ' MsgBox(Ausnahme.Message, MsgBoxStyle.Critical, "Fehler !")
 
    Catch Ausnahme As Exception ' (2)
      ' MsgBox(Ausnahme.Message, MsgBoxStyle.Critical, "Fehler !")
 
    Finally ' (3)
      If Not Datei Is Nothing Then
        Datei.Close()
        ' MsgBox("Datei wurde ordnungsgemäß geschlossen")
      End If
  End Try
Next
Ende = Stopuhr.TickCount
 
Dim s As String
s &= "Try catch dauerte" & vbNewLine & Ende - Anfang & " ms" & vbNewLine
 
Anfang = Stopuhr.TickCount
For i = 1 To Anzahl
  If (Directory.Exists(Dateipfad) = False) Then ' (4)
    ' MsgBox("Das angegebene Verzeichnis existiert nicht!", MsgBoxStyle.Critical, "Fehler !")
  ElseIf (File.Exists(Dateipfad & Dateiname) = False) Then ' (5)
    ' MsgBox("Die Datei existiert am angegebenen Ort nicht!", MsgBoxStyle.Critical, "Fehler !")
  Else ' (6)
    Datei = File.Open(Dateipfad & Dateiname, FileMode.Open)
    Datei.Close()
  End If
Next
Ende = Stopuhr.TickCount
 
s &= "if-Abfrage dauerte" & vbNewLine & Ende - Anfang & " ms"
MsgBox(s)

Um spürbar etwas messen zu können, greifen wir 10.000 mal hintereinander auf die Datei "c:\michgibtesnicht.txt" zu und schauen jeweils mit try/catch bzw. if, wie lange unsere Fehlerbehandlung dauert. Das Resultat hängen wir an einen string, den wir zum Schluß ausgeben. Die auskommentierten MsgBox-Zeilen sind für einen Zeitvergleich unverzichtbar!! Anderenfalls würde er die Benutzerzeit hinzuaddieren, was nicht im Sinne des Erfinders wäre.

Bevor ich auf die von mir gemessenen Ergebnisse zu sprechen komme, noch ein paar Erläuterungen zum Code:

(1) try = versuch; "Lieber Computer, versuch doch mal, ob du die Datei öffnen kannst ..."
Wenn es klappt, gibt er (bei Entfernen der Kommentare vor den Msgbox)

Catch Ausnahme As Exception

                    Testdatei war
 
         nicht vorhanden      vorhanden
 
Try catch    16,14 s             0,53 s
if            0,70 s             1,25 s