asp fso實現整個文件夾內容的復制到另一個文件夾中

這裡是一個實現將一個文件夾中的內容，包括子文件夾中的內容，復制到另一個文件夾中的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
%>