当前位置：首页 > 网络编程 > WEB编程 > ASP > asp的fso函数实现整个文件夹内容的复制到另一个文件夹

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

点击次数：189 次 发布日期：2008-09-18 15:09:00 作者：源代码网
源代码网推荐

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

源代码网整理以下转换的方法是使用server.mappath。

源代码网整理以下


<%
startfile_1="d:aaa" "原始文件夹
tofile_1="c:bb" "目标文件夹
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)
我也要写评论
会员中心
网络编程
本站推荐
网络编程之精华