最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
fso实现整个文件夹内容的复制到另一个文件夹中
时间：2022-07-02 23:18:45 编辑：袖梨 来源：一聚教程网
这里是一个实现将一个文件夹中的内容，包括子文件夹中的内容，复制到另一个文件夹中的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
%>
相关文章
- 幻兽帕鲁秘斯媞雅在哪里出生 帕鲁秘斯媞雅出没地点介绍 07-12
- 剑星桃乐丝服装怎么获取 桃乐丝服装获取方式介绍 07-12
- 无畏契约源能行动星礈怎么玩 星礈实战技巧教学 07-12
- 魔兽世界wlk血精灵怎么练级-wlk血精灵练级路线推荐 07-12
- 前端水印的简单实现代码示例 07-12
- ps后期调出大光比的古风人像大片教程 07-12