"Create Directory" eller "Copy Directory"

Jeg skal kopiere alle filer fra nogle mapper. Filerne skal placeres i nogle mapper med samme navn som de kopierede, disse mapper skal oprettes.
Jeg bruger nedenstående script til kopiering af filer, men jeg kan ikke kopiere filer til en mappe der ikke eksisterer.
Muligvis er jeg igang med at skyde gråspurve med kanoner, da jeg kopierer filer istedet for mapper, som jeg sagtens kunne i dette tilfælde, men min forstand på vbs programmering er næsten lig nul.

Program:

Dim fs
Dim PathC
Dim PathD

PathC="mappe1\mappe2\mappe3\"
PathD="map1\map2\map3\"

set fs = CreateObject("Scripting.FileSystemObject")

fs.CopyFolder "C:\" & PathC & "test1\gringo", "D:\" & PathD & "test3\gringo"