Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
      ' Den Ordner erstellen, indem alle nummerierten Ordner enthalten sind
      Call CreateSubDirectory("D:\Test\Sub\")
   End Sub
 
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button2.Click
      ' Nun den Ordner mit der Nummer erstellen
      Call CreateSubDirectory("D:\Test\Sub\120001")
   End Sub