用asp实现批量删除bak文件

2018-09-06 10:55

阅读:536

  复制代码 代码如下:
<%@language=vbscriptcodepage=936%>
<%
批量文件自动搜索替换插入器Ver2.0
飞云编写,CSDN帐号:jspadmin,QQ:33323489
个人网站蚍蜉中文站,欢迎交换链接。本站提供免费博客申请注册。
你可以使用或修改本代码,但是请保留版权信息或链接,谢谢使用!
如果有问题或建议,请给我留言
%>
<%
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
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>


评论


亲,登录后才可以留言!