Kan een mapnaam en het bijbehorende pad niet weergeven in VBA

Hallo

In dit geval, om te beperken tot het eerste niveau van de submap, hoeft u alleen maar de recursieve lus (DoFolder SubFolder) te verwijderen en de systeemmappen uit te sluiten (al gecodeerd door @m.blt )