ASp로 대량 삭제bak 파일

 
  
 
  
'              Ver2.0 
  
'    ,CSDN  :jspadmin,QQ:33323489 
  
'    http://www.pifoo.com       ，      。            。 
  
'           ，            ，    ！ 
  
'        ，      http://www.pifoo.com/guestbook/ 
  
%> 
  
bakpath=request("bakpath") 
  
delbak=server.mappath(bakpath) 
  
set fso = createobject("scripting.filesystemobject") 
  
response.write "        ：" & "
" 
  
iterate(delbak) 
  
function iterate(path) 
  
    dim folder, folders, files, file 
  
    set folder = fso.getfolder(path) 
  
    set files = folder.files 
  
    for each file in files 
  
        if fso.getextensionname(file.name)="bak" then 
  
                response.write file.name & "       ！
" & file.path & "

" 
  
                file.delete true 
  
        end if 
  
    next 
  
    set folders = folder.subfolders 
  
    for each f in folders 
  
        iterate f.path 
  
    next 
  
end function 
  
set fso=nothing 
  
%> 
  
첫 페이지로 돌아가기