全网最全删除指定文件夹及指定文件的ASP代码及详解（详细解释）

使用条件和建议：
1.服务器 必须能够用scripting.filesystemobject 控件
2.因为是删除过程，所以强烈推荐用sub 子程序，因为子程序是预先加装的，因此删除的速度很快，特别是对于批量删除和指定删除文件，非常适用 。如果不使用子程序，而只使用循环删除的话，很难执行完成全部的循环。
3. 不建议在刚刚上传完大文件或在认证注册会员身份等的环境下，直接使用该子程序，这会造成重新验证会员等一系列问题。
4. 服务器端删除后可刷新显示，才能看到真实的结果。

函数过程：
复制代码 代码如下:

<%
'del.asp
dim fso,tmpfolder,tmpsubfolder,tmpfile,tmpfiles
set fso=server.CreateObject(“Scripting.FileSystemObject”)
sub delfolder(sPath)
If (fso.FolderExists(server.MapPath (sPath))) then
set tmpfolder=fso.GetFolder(server.MapPath (sPath))
set tmpfiles=tmpfolder.files
for each tmpfile in tmpfiles
fso.DeleteFile (tmpfile)
next
set tmpsubfolder=tmpfolder.SubFolders
for each tmpfolder in tmpsubfolder
response.Write spath&"/"&tmpfolder.name&"
"
delfolder(spath&"/"&tmpfolder.name )
next
fso.DeleteFolder (server.MapPath (sPath))
end if
end sub
%>

调用方法：

复制代码 代码如下:

<%
'调用例子
'del.asp放到要删除的目录同一层，要删除的目录存在且其下有若干子目录和文件，要对该目录具有修改权限。
delfolder(“目录名”)
%>