<%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&"\"&s3NextFor Each thing in MyFolder.SubFolders'复制子文件夹s=Split(thing,"\")a=UBound(s)s3=Split(thing,"\")(a)response.write thing&"<br>"response.write s1&"\"&domain&"\"&s3response.write "<br>"MyFileObject.copyFolder thing,s1&"\"&domain&"\"&s3Next%> 注：aaa为文件夹名,domain为新文件夹名

评论