<% @language=vbscript codepage=936 %> <% '批量文件自動搜索替換插入器 Ver2.0 '飛云編寫,CSDN帳號:jspadmin,QQ:33323489 '個人網(wǎng)站http://www.pifoo.com 蚍蜉中文站，歡迎交換鏈接。本站提供免費(fèi)博客申請注冊。 '你可以使用或修改本代碼，但是請保留版權(quán)信息或鏈接，謝謝使用！ '如果有問題或建議，請給我留言 http://www.pifoo.com/guestbook/ %> <% bakpath=request("bakpath") delbak=server.mappath(bakpath) set fso = createobject("scripting.filesystemobject") response.write "刪除操作結(jié)果如下：" & "<br>" 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 & "已經(jīng)被成功刪除！<br>" & file.path & "<br><br>" file.delete true end if next set folders = folder.subfolders for each f in folders iterate f.path next end function set fso=nothing %> <A HREF="index.asp">返回首頁</A>
