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檔案夾下並返回結果
%>