Ein Ordnername und sein Pfad können in VBA nicht angezeigt werden

Hallo

In diesem Fall müssen Sie, um sich auf die erste Ebene des Unterordners zu beschränken, nur die rekursive Schleife (DoFolder SubFolder) entfernen und die Systemordner (bereits von @m.blt codiert) ausschließen