asp復(fù)制文件夾代碼

%
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 '目標文件夾如果不存在就創(chuàng)建
            CreateNewFolder = Server.Mappath(FolderPath)
            fso.CreateFolder(CreateNewFolder)
            fso.copyfolder sFolder,oFolder
   End if
 CopyMyFolder="復(fù)制文件夾["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)"" '復(fù)制文件夾2006下的所有內(nèi)容到2008文件夾下并返回結(jié)果
%>