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

<script type="text/javascript"><!--google_ad_client = "pub-4490194096475053";/* 内容页,300x250,第一屏 */google_ad_slot = "3685991503";google_ad_width = 300;google_ad_height = 250;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>

这里是一个实现将一个文件夹中的内容，包括子文件夹中的内容，复制到另一个文件夹中的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
%>