La copia del código es la siguiente:
<%@idioma = vBscriptCodePage = 936%>
<%
'Batch File Automatic Search Reemplazar insertar Ver2.0
'Feiyun Writing, CSDN Cuenta: JSpadmin, QQ: 33323489
'Sitio web personal http://www.pifoo.com Sitio web chino, bienvenido a intercambiar enlaces. Este sitio proporciona una aplicación y registro de blog gratuitos.
'Puede usar o modificar este código, pero mantenga la información o los enlaces de los derechos de autor, ¡gracias por usarlo!
'Si tiene alguna pregunta o sugerencia, déjame un mensaje http://www.pifoo.com/guestbook/
%>
<%
bakpath = request ("Bakpath")
Delbak = Server.Mappath (Bakpath)
setfso = createObject ("scripting.filesystemObject")
Response.write "El resultado de la operación de deleción es el siguiente:" y "<br>"
iterar (Delbak)
Funcionador (ruta)
dimfolder, carpetas, archivos, archivo
setfolder = fso.getfolder (ruta)
setFiles = carpeta.files
foreachFileInfiles
iffso.getExtExtensionName (file.name) = "bak" entonces
Response.WriteFile.name & "se ha eliminado correctamente! <br>" & File.Path & "<br> <br>"
file.deletetrue
endif
próximo
setfeders = carpeta.subfolders
foreachfinfolders
iterarf.path
próximo
Función final
setfso = nada
%>
<href = "index.asp"> volver a la página de inicio </a>