用实现ASP批量删除目录及文件的代码

文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学的各位小编整理了ASP-用实现asp批量删除目录及文件的代码的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

函数过程：
复制代码 代码如下:
<%
''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&"<br>"
delfolder(spath&"/"&tmpfolder.name )
next
fso.DeleteFolder (server.MapPath (sPath))
end if
end sub
%>

调用方法：
复制代码 代码如下:
<%
''调用例子
''del.asp放到要删除的目录同一层，要删除的目录存在且其下有若干子目录和文件，要对该目录具有修改权限。
delfolder("目录名")
%>