METHOD:  Folder.Copy

Implemented in version 2.0
 
object.Copy destination[, overwrite]

This method makes a copy of the selected folder and saves it to the specified destination. The overwrite parameter is a Boolean value - True allows existing folders with the same name as destination to be overwritten while False (the default) does not.

Note that after copying a folder to a new location the Folder object still relates to the original folder.

Code:
<%
dim filesys, demofolder
set filesys = CreateObject ("Scripting.FileSystemObject")
set demofolder = filesys.GetFolder("c:\projects\")
demofolder.Copy("c:\work\")
%>