ASP复制文件夹，示例代码如下：

Function CopyMyFolder(oldFolder,newFolder) 
folder1=server.mappath(oldFolder) 
folder2=server.mappath(newFolder) 
set fso=createobject("scripting.filesystemobject") 
If not fso.folderexists(folder1) Then '如果原文件夹不存在
    CopyMyFolder="原文件夹["&oldFolder&"]不存在!" 
Else     
    If not fso.folderexists(folder2) Then '如果目标文件夹不存在，则创建文件夹
        fso.CreateFolder(folder2) 
    End If 
    fso.copyfolder folder1,folder2 
    CopyMyFolder="复制文件夹["&oldFolder&"]到["&newFolder&"]成功!" 
End If 
Set fso=nothing 
End Function 
oldFolder="/pic1/" '原文件夹 
newFolder="/pic2/" '目标文件夹 
Response.Write CopyMyFolder(oldFolder,newFolder) 

    注：复制时，原文件夹中的文件会覆盖掉目标文件夹中的同名文件。