复制代码 代码如下:<% 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文件夹下并返回结果 %>

　　推荐阅读

　　ASP编程入门进阶（十九）：ASP技巧累加（二）

严格控制Session可以将不需要Session的内容（比如帮助画面，访问者区域，等等）移动到关闭Session的独立ASP应用程序中。在基础页面上，可以给ASP一个指示，让它不需要使用Session。将下面的代码直接加入到ASP页面的>>>详细阅读

本文标题：asp复制文件夹代码

地址：http://www.17bianji.com/kaifa2/ASP/32850.html

 1/2    1