''' <summary>
   ''' Erstellt das angegebene Verzeichnis und zählt dabei automatisch die 
   ' Nummer fortlaufend hoch, wenn das Verzeichnis bereits existiert
   ''' </summary>
   ''' <param name="path">Das zu erstellende Verzeichnis</param>
   ''' <remarks></remarks>
   Private Sub CreateSubDirectory(ByVal path As String)
      ' Überprüfe, ob das Verzeichnis existiert
      If IO.Directory.Exists(path) Then
         ' true -> Ordnername ermitteln
         Dim dirName As String = IO.Path.GetFileName(path)
         Dim nr As Integer
 
         ' Versuche den Name in Integer zu konvertieren
         If Integer.TryParse(dirName, nr) Then
            ' Zähle um 1 hoch und rufe Methode erneut auf
            Call CreateSubDirectory(IO.Path.GetDirectoryName(path) & "\" & (nr _
              + 1).ToString)
         Else
            ' Erstelle Ordner mit der Nummerierung 1, wenn die Konvertierung 
            ' fehl schlug
            Call CreateSubDirectory(IO.Path.GetDirectoryName(path) & "\1")
         End If
 
      Else
         ' false -> Verzeichnis erstellen
         IO.Directory.CreateDirectory(path)
      End If
   End Sub