当前位置:asp编程网>技术教程>Asp教程>  正文

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

2008-04-12 12:51:35   来源:asp编程网    作者:佚名   浏览量:1763   收藏
这里是一个实现将一个文件夹中的内容,包括子文件夹中的内容,复制到另一个文件夹中的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&#38;"\"&#38;s3
Next
For Each thing in MyFolder.SubFolders'复制子文件夹
s=Split(thing,"\")
a=UBound(s)
s3=Split(thing,"\")(a)
response.write thing&#38;"
"
response.write s1&#38;"\"&#38;domain&#38;"\"&#38;s3
response.write "
"
MyFileObject.copyFolder thing,tofile&#38;"\"&#38;s3
Next
end function
%>



关于我们-广告合作-联系我们-积分规则-网站地图

Copyright(C)2013-2017版权所属asp编程网