asp文件目录与文件拷贝

asp文件目录与文件拷贝,这是我在写一个系统升级时用到了,就是把当前文件夹中的文件自制到系统目录下,替换以前的旧文件

sub fs()
set fsobject=server.CreateObject("scripting.filesystemobject")
end sub

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()
call append()
response.Flush()

这样就行了

原创文章:转载请注明: