<p>今天不小心,由运行的一个系统生成了大量文件到了一个文件夹下,而该文件夹下原本就存在一些文件。我不得不要将新生成的文件们清理掉,可是,太多了。</p>
不过还好,该系统有一个它所生成的文件的列表。于是使用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
%>