How can my DIR path be narrowed down better with unknown folder name in the path?

Question

I have a vba script that will loop through all xml files in a folder using CMD as follows

CreateObject("WScript.Shell").Exec("CMD /C DIR ""