当前位置: 首页 > 图文教程 > 网络编程 > ASP > fso实现整个文件夹内容的复制到另一个文件夹中

ASP
用ASP获取客户端IP地址的方法
IIS服务器防范攻击3条安全设置技巧
ASP上传组件AspUploadv3.0安装的问题
ASP教程:读取文件和写文件
ASP实例教程:长文章分页功能
最常用的正则表达式示例
asp实现文件md5
ASP教程:DateDiff函数和DateAdd函数
ASP教程:nchar，char，varchar和nvarchar
ASP过滤script脚本的正则函数
ASP函数:移除HTML代码
ASP教程:800a0400的解决方案
ASP视频教程:Windows XP下安装IIS
ASP视频教程:Windows XP下配置IIS
ASP视频教程:安装SQL Server 2000数据库
ASP视频教程:SQL企业管理器建立数据库和管理员表
ASP视频:Dreamweaver中建立站点和连接数据库
ASP视频教程:建立后台管理的登录页面
ASP视频教程:对登录页面进行美化
ASP视频教程:建立后台管理的框架页面

No. « 98 99 100 101 »

技术文章搜索

关键字

ASP 中的 fso实现整个文件夹内容的复制到另一个文件夹中

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-08-14   浏览: 227 ::
收藏到网摘: n/a

这里是一个实现将一个文件夹中的内容，包括子文件夹中的内容，复制到另一个文件夹中的asp代码。在使用的过程中要将文件夹的相对路径转换成绝对路径。

转换的方法是使用server.mappath。


<%
startfile_1="d:\aaa" '原始文件夹
tofile_1="c:\bbb" '目标文件夹
Call copyfile(startfile_1,tofile_1)
response.write "完成"

function copyfile(startfile,tofile) 'startfile为原始文件夹路径,tofile为目标文件夹路径
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
Set MyFolder=MyFileObject.GetFolder(startfile)
domain=Split(startfile,"\")(UBound(Split(startfile,"\")))
For Each thing in MyFolder.Files'复制里面的文件
s=Split(thing,"\")
a=UBound(s)
s3=Split(thing,"\")(a)
MyFileObject.CopyFile thing,tofile&"\"&s3
Next
For Each thing in MyFolder.SubFolders'复制子文件夹
s=Split(thing,"\")
a=UBound(s)
s3=Split(thing,"\")(a)
response.write thing&"
"
response.write s1&"\"&domain&"\"&s3
response.write "
"
MyFileObject.copyFolder thing,tofile&"\"&s3
Next
end function
%>