asp檔案目錄與檔案拷貝

asp檔案目錄與檔案拷貝,這是我在寫一個系統升級時用到了,就是把當前檔案夾中的檔案自製到系統目錄下,替換以前的舊檔案

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

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

這樣就行了

原創文章:轉載請註明:www.111cn.net