ASP实现批量删除目录及目录下的文件

函数过程： @H_404_1@

<%  @H_404_1@

'del.asp  @H_404_1@

dim fso,tmpfolder,tmpsubfolder,tmpfile,tmpfiles  @H_404_1@

set fso=server.CreateObject("Scripting.FileSystemObject")  @H_404_1@

sub delfolder(sPath)  @H_404_1@

    If (fso.FolderExists(server.MapPath (sPath))) then  @H_404_1@

        set tmpfolder=fso.GetFolder(server.MapPath (sPath))  @H_404_1@

        set tmpfiles=tmpfolder.files  @H_404_1@

        for each tmpfile in tmpfiles  @H_404_1@

            fso.DeleteFile (tmpfile)  @H_404_1@

        next  @H_404_1@

        set tmpsubfolder=tmpfolder.SubFolders  @H_404_1@

        for each tmpfolder in tmpsubfolder  @H_404_1@

            response.Write spath&"/"&tmpfolder.name&"<br>"  @H_404_1@

            delfolder(spath&"/"&tmpfolder.name )  @H_404_1@

        next  @H_404_1@

        fso.DeleteFolder (server.MapPath (sPath))  @H_404_1@

    end if  @H_404_1@

end sub  @H_404_1@

%>@H_404_1@

调用方法：@H_404_1@

<%  @H_404_1@

'调用例子  @H_404_1@

'del.asp放到要删除的目录同一层，要删除的目录存在且其下有若干子目录和文件，要对该目录具有修改权限。  @H_404_1@

delfolder("目录名")  @H_404_1@

%>@H_404_1@