Fehlerbehandlung beim Einlesen von Verzeichnisbäumen und Dateien

  Dim TempStr As String'..................' aus Verzeichnis eingelesene Datei  
  Dim Counter As Integer = 0..................' allg. Zähler  
  Dim FileCounter As Integer = 0..................' Zähler für gefundene Dateien  
  Dim MaxFileAmount As Integer = 40                                .........' Max.Anzahl der zu vergl. Dateien  
  Dim CompareFile() As String = {"File1.txt", "File2.txt" (...) }  .........' Array mit den zu findenden Dateien  
  Dim SearchDir As String = "c:\"                                  .........' zu durchsuchendes Verzeichnis  
				
   Try
     For Each File As String In Directory.GetFiles(SearchDir, "*.*", SearchOption.AllDirectories)  
       TempStr = My.Computer.FileSystem.GetName(File)
       For Me.Counter = 1 To MaxFileAmount                         .........' Schleife für alle zu vergl. Dateien  
         If TempStr = CompareFile(Counter) Then                    .........' eingelesene Datei mit Array() vergl.  
           ListBox1.Items.Add(File)                                .........' passende Dateien in ListBox1 anzeigen  
           FileCounter = FileCounter + 1                           .........' Anzahl der passenden Dateien +1  
         End If
       Next
     Next
            
   Catch ex As Exception                                           .........' Falls Verzeichnis nicht lesbar....  
       ListBox2.Items.Add(ex.Message)                              .........' Fehlermeldungen in ListBox2 anzeigen  
   End Try
   infomsg = MessageBox.Show("Ready")                              .........' Programmlauf beendet