<%
domain="123"
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
str123=server.mappath("./aaa")
s1=server.mappath("./")
Set MyFolder=MyFileObject.GetFolder(str123)
For Each thing in MyFolder.Files'复制里面的文件
s=Split(thing,"\")
a=UBound(s)
s3=Split(thing,"\")(a)
MyFileObject.CopyFile thing,s1&"\"&domain&"\"&s3
Next
For Each thing in MyFolder.SubFolders'复制子文件夹
s=Split(thing,"\")
a=UBound(s)
s3=Split(thing,"\")(a)
response.write thing&"<br>"
response.write s1&"\"&domain&"\"&s3
response.write "<br>"
MyFileObject.copyFolder thing,s1&"\"&domain&"\"&s3
Next
%>

注：aaa为文件夹名,domain为新文件夹名

评论