複製代碼代碼如下:
<%
FunctionCopyMyFolder(FolderName,FolderPath)
sFolder=server.mappath(FolderName)
oFolder=server.mappath(FolderPath)
setfso=server.createobject("scripting.filesystemobject")
iffso.folderexists(server.mappath(FolderName))Then'檢查原文件夾是否存在
iffso.folderexists(server.mappath(FolderPath))Then'檢查目標文件夾是否存在
fso.copyfoldersFolder,oFolder
Else'目標文件夾如果不存在就創建
CreateNewFolder=Server.Mappath(FolderPath)
fso.CreateFolder(CreateNewFolder)
fso.copyfoldersFolder,oFolder
Endif
CopyMyFolder="複製文件夾["&server.mappath(FolderName)&"]到["&server.mappath(FolderPath)&"]成功!"
Else
CopyMyFolder="錯誤,原文件夾["&sFolde&"]不存在!"
EndIf
setfso=nothing
EndFunction
FolderName="2006"'原文件夾
FolderPath="2008"'目標文件夾
response.write""&CopyMyFolder(FolderName,FolderPath)&""'複製文件夾2006下的所有內容到2008文件夾下並返回結果
%>