用asp实现批量删除bak文件

时间:2021-05-18

复制代码 代码如下:
<%@language=vbscriptcodepage=936%>
<%
'批量文件自动搜索替换插入器Ver2.0
'飞云编写,CSDN帐号:jspadmin,QQ:33323489
'个人网站http:///guestbook/
%>
<%
bakpath=request("bakpath")
delbak=server.mappath(bakpath)
setfso=createobject("scripting.filesystemobject")
response.write"删除操作结果如下:"&"<br>"
iterate(delbak)
functioniterate(path)
dimfolder,folders,files,file
setfolder=fso.getfolder(path)
setfiles=folder.files
foreachfileinfiles
iffso.getextensionname(file.name)="bak"then
response.writefile.name&"已经被成功删除!<br>"&file.path&"<br><br>"
file.deletetrue
endif
next
setfolders=folder.subfolders
foreachfinfolders
iteratef.path
next
endfunction
setfso=nothing
%>
<AHREF="index.asp">返回首页</A>

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章