今天不小心,由运行的一个系统生成了大量文件到了一个文件夹下,而该文件夹下原本就存在一些文件。我不得不要将新生成的文件们清理掉,可是,太多了。
不过还好,该系统有一个它所生成的文件的列表。于是使用ASP制作了一个批量删除文件的程序,完成了这一任务。
先在前台页面弄个文本框,用来接收文件列表的输入。
再在后台使用程序将文件列表中的文件,一一删除。
前台页面(deleteFile.asp)的html核心代码为:
<form name="fmFiles" method="post" action="deleteFile_Process.asp">
<p>文件列表:</p>
<textarea rows="20" cols="80" name="files"></textarea>
<p><input type="submit" /></p>
</form>
后台页面(deleteFile_Process.asp)的核心代码为:
<%
Dim files, aFiles, i
files = Request.Form("files")
aFiles = Split(files, vbCrLf)
Dim oFS
Set oFS = Server.CreateObject("Scripting.FileSystemObject")
For i = LBound(aFiles) To UBound(aFiles) - 1
aFiles(i) = Server.MapPath(Mid(aFiles(i), 5))
oFS.DeleteFile aFiles(i)
Response.Write aFiles(i) & " 删除成功!<br>"
Next
Set oFS = Nothing
%>