Unable to display a folder name and its path in VBA

Hello

In this case, to limit to the first level of subfolder, you just have to remove the recursive loop (DoFolder SubFolder) and exclude the system folders (already encoded by @m.blt )