Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button4.Click
        Dim path As String
 
        path = "C:\Testverzeichnis\"
        ' Ü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