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

ASP
ASP中实现限制IP的函数详解
Asp下实现限制IP访问的程序代码
asp下DateDiff 函数参数说明
Highlight patterns within strings
Insert Date and Time into Access
asp下调试程序的debug类
RESPONSE.WRITE和<%=%的区别
用asp实现网页邮箱访问的方法
编写一个含二级目录的源码(Asp+JavaScript)
asp下删除Access数词库中的空记录的sql语句
asp下制做行背景颜色交替变换的表格
asp下将数据库中的信息存储至XML文件中
asp下如何在Access数据库中立即得到所插入记录的自动编号？
asp下如何在ADO服务器端利用好缓存技术？
asp调用Word打印的代码
巧用FileSystem组件实现WEB应用中的本地特定打印的方法
用javascript解决外部数据抓取中的乱码问题
Asp中随机产生用户密码的代码
反SPAM新思路—换Z-BLOG的验证码！
在Z-BLOG可用的新版ASP的GIF验证码[V70404]

No. « 59 60 61 62 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-08-14   浏览: 191 ::
收藏到网摘: 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
%>