Dim directories1 = From folder In _
                           Directory.EnumerateDirectories(Zielordner)
        For Each folder In directories1
            RichTextBox1.Text = RichTextBox1.Text & folder.Substring(folder.LastIndexOf("\") + 1) & vbNewLine
        Next