asp复制文件夹代码

%
Function CopyMyFolder(FolderName,FolderPath)
sFolder=server.mappath(FolderName)
oFolder=server.mappath(FolderPath)
set fso=server.createobject("scripting.filesystemobject")
if fso.folderexists(server.mappath(FolderName)) Then'检查原文件夹是否存在
   if fso.folderexists(server.mappath(FolderPath)) Then'检查目标文件夹是否存在
   fso.copyfolder sFolder,oFolder
    Else '目标文件夹如果不存在就创建
            CreateNewFolder = Server.Mappath(FolderPath)
            fso.CreateFolder(CreateNewFolder)
            fso.copyfolder sFolder,oFolder
   End if
 CopyMyFolder="复制文件夹["server.mappath(FolderName)"]到["server.mappath(FolderPath)"]成功!"
Else
CopyMyFolder="错误,原文件夹["sFolde"]不存在!"
End If
set fso=nothing
End Function
FolderName="2006" '原文件夹
FolderPath="2008" '目标文件夹
response.write""CopyMyFolder(FolderName,FolderPath)"" '复制文件夹2006下的所有内容到2008文件夹下并返回结果
%>