DirCopy

<%
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "d:\db" , "d:\clock"
%>