asp删除非空目录的例子

这是个删除非空目录的例子

'test.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
%>
<%
'调用例子
'test.asp放到wwwroot\下
'wwwroot\1\存在，且其他下有若干子目录和文件
delfolder("1")
%>


注意，在NTFS分区上进行删除的时候，要注意该文件夹对于IIS的匿名用户有完全控制的权限。