<[email protected]=vbscriptcodepage=936%>
<%
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
%>
|