Copy codeThe Code is as follows: <% @ language = vbscript codepage = 936%>
<%
'Batch file automatic search replace inserter Ver2.0
'Write Apsara stack, CSDN account: jspadmin, QQ: 33323489
'Personal website http://www.pifoo.com alimail Chinese site, welcome to exchange links. This site provides free blog Application Registration.
'You can use or modify this code, but please keep the copyright information or link. Thank you for using it!
'Leave me a http://www.pifoo.com/guestbook/ if you have any questions or suggestions
%>
<%
Bakpath = request ("bakpath ")
Delbak = server. mappath (bakpath)
Set fso = createobject ("scripting. filesystemobject ")
Response. write "the deletion result is as follows:" & "<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 & "has been successfully deleted! <Br> "& file. path &" <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"> back to homepage </A>
