La copie de code est la suivante:
<% @ language = vbscriptCodePage = 936%>
<%
«Recherche automatique du fichier batch remplacer l'insert ver2.0
'Feiyun Writing, CSDN Compte: Jspadmin, QQ: 33323489
«Site personnel personnel http://www.pifoo.com Site Web chinois, bienvenue pour échanger des liens. Ce site fournit une application et une inscription gratuites de blog.
«Vous pouvez utiliser ou modifier ce code, mais veuillez conserver les informations ou les liens des droits d'auteur, merci de l'avoir utilisé!
«Si vous avez des questions ou des suggestions, veuillez me laisser un message http://www.pifoo.com/guestbook/
%>
<%
bakpath = demande ("bakpath")
Delbak = server.mappath (bakpath)
setfso = createObject ("scripting.fileSystemObject")
Response.Write "Le résultat de l'opération de suppression est le suivant:" & "<br>"
itérer (Delbak)
funomètre (chemin)
Dimfolder, dossiers, fichiers, fichier
setFolder = fso.getfolder (chemin)
setFiles = dossier.files
foreachfileinfiles
iffso.getExTextensionName (file.name) = "bak" puis
réponse.writefile.name & "a été supprimé avec succès! <br>" & file.path & "<br> <br>"
file.deleteTrue
endire
suivant
Setfolders = dossier.Sublolders
foreachfinfolders
itérerf.path
suivant
finition de fin
setfso = rien
%>
<href = "index.asp"> Retour à la page d'accueil </a>