VBSについて質問です。

--------------------------------------------

kouban = "2022000"

strFrom = "C:\Users\Downloads\" & kouban & "\*.xml"

strTo = "C:\Users\Desktop\" & kouban &"\"

Set objFS = CreateObject("Scripting.FileSystemObject")

objFS.CopyFile strFrom, strTo, True

--------------------------------------------

上記のようなVBSで.xmlファイルをまとめたいと思っています。
ワイルドカードで指定している配下のフォルダーの名前は毎回異なっています。

どのようにすれば、この配下をワイルドカードで拾えるようになるかお教え願います。
フルパスの一例を下記に記載させていただきます。

"C:\Users\Downloads\2022000\配下1\配下2\配下3\配下4\配下5\配下5.xml"