fso实现将整个文件夹复制到另一个文件夹中

这里是将c:\test文件夹复制到D:\test里面去，在实际使用中，请通过server.mappath来将相对路径转为绝对路径。
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObjectwsd")
sPh = "C:\test"
tPh = "D:\test"
If objFSO.FolderExists(sPh) Then
    objFSO.CopyFolder sPh, tPh
Else
    Response.Write "源文件夹不存在，无法复制！"
End If
Set objFSO = Nothing
%>