asp 文件自动复制 文件移动 安装程序

sub install()
 call fs()
 set folder=fsobject.getfolder(server.mappath("."))
   response.write("Installation documentation is complete,Installation of the following documents
")
  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("installed success !  "&path2&"
")
   response.Flush()
   end sub
%>

调用方法

call install()

本站原创转载注明 www.111com.net