Copia una carpeta completa utilizando FSO (FileSystemObject)
<% Set fs = CreateObject("scripting.FileSystemObject") fs.CopyFolder "d:db" , "d:clock" %>