繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > fso实现整个文件夹内容的复制到另一个文件夹中
- ASP
- 保护 XML Web 服务免受黑客攻击
- 开发BtoC电子商务系统(ASP.NET)
- 用asp.net实现的把本文推荐给好友功能
- 尝尝ASP.NET中的小甜饼
- web.config一个中文解释
- 使用ASP.NET加密口令
- 在SQL Server中保存和输出图片
- ASP 中健壮的页结构的异常处理
- 如何使你的机器运行ASP?
- asp(Active Server Page)的语言特性
- 关于inc文件
- IE4 的 模 式 对 话 框 设 计
- 亲密接触ASP.net(6)
- 亲密接触ASP.Net(7)
- 用ASP.Net写一个发送ICQ信息的程序
- 用ASP.Net编写的查询域名的程序
- 使用 ASP+ 列表绑定控件（上）
- 使用 ASP+ 列表绑定控件（中）
- 使用 ASP+ 列表绑定控件（下）
- 揭开ASP神秘面纱(1)
ASP 中的 fso实现整个文件夹内容的复制到另一个文件夹中
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-08-14 浏览: 171 ::
收藏到网摘: 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 %> |
评论 (0) All
