usando il metodo copyFolder!

codice:
dim fso ,cartellaSource,cartellaDest

'Qui (fra le virgolette)metti la cartella di partenza
cartellaSource=""
'Qui (fra le virgolette)metti la cartella di destinazione
cartellaDest=""

set fso=createObject("Scripting.filesystemobject")

fso.copyfolder cartellaSource,cartellaDest