<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
%>