繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp复制文件夹代码
- ASP
- asp+语法教程(三)asp+的服务器端编程初步
- asp+语法教程(四)asp+的服务器端编程进介
- asp+语法教程(五)asp+的服务器端编程控件篇
- asp+语法教程(六)数据库篇
- 从ASP迁移至ASP+
- 从ASP迁移至ASP+ --进入DataSet
- 从ASP迁移至ASP+ --HTML表格转换为ASP+列表
- 从ASP迁移至ASP+ --转换其他的页面
- 从ASP迁移至ASP+ --处理会话变量
- ASP十步进阶
- asp.net高级教程（一）-asp.net还是asp+ ？
- asp.net高级教程（二）- 转换编程思维
- asp.net高级教程（三）-对象
- asp.net高级教程（三）-实战篇
- asp.net高级教程（五）-实战篇(中)
- ASP+中文教程（一）--asp+简介、安装、以及如何显示中文
- asp+中文教程（二）-- Asp+ Web Forms
- APS + 中文教程(三）--服务器端控制（一）
- SQL数据操作基础(初级) 4
- SQL数据操作基础(初级) 5
ASP 中的 asp复制文件夹代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 174 ::
收藏到网摘: n/a
复制代码 代码如下:
<%
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文件夹下并返回结果
%>
评论 (0) All
