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文件夹下并返回结果
%>



相关阅读:
js+css完成网站的会员照片信息显示效果
复制选项的规划
DIV+CSS制作的个性水平导航菜单实例
javascript得到XML某节点的子节点个数的脚本
PHP 程序员也要学会使用“异常”
页面输出缓存
JavaScript教程:简单的输入、输出例子
JSP显示内容缓存技巧
关于UltraLite所不提供的ASA功能的介绍
jQuery的强大选择器小结
JData 使用教程(-) 加载数据
wordpress中文截断产生乱码解决方法
用VBScript批量安装网络打印机和设置默认打印机
我的论坛源代码(十)
快速导航

Copyright © 2016 phpStudy |