ASP file automatic Copy file move Setup program

Sub Install ()
Call FS ()
Set Folder=fsobject.getfolder (Server.MapPath ("."))
Response.Write ("<b>installation documentation is complete,installation of the following documents</b>< Br> ")
For each FD in Folder.files
Fname=server. MapPath ("./" &fd.name)
Path2=server. MapPath (".. /"&fd.name)
For B=0 to 20
Response.Flush ()
Next
Call CopyFiles (FNAME,PATH2)
For S=0 to 10
Response.Flush ()
Next
Next
End Sub
Sub CopyFiles (PATH,PATH2)
Set Mycopy=fsobject.getfile (PATH)
Response.Flush ()
Mycopy.copy path2
Response.Write ("<b>installed success!&nbsp;&nbsp;</b>" &path2& "<br>")
Response. Flush ()
End Sub
%>

Call method

Call Install ()

Original reprint of this site annotated www.111cn.net