Kopiowanie katalogów i podkatlogów

Dim oFS
 Set oFS=CreateObject("Scripting.FileSystemObject")
 oFS.CopyFolder "d:\temp\*", "E:\tmp\"
 Set oFS=Nothing