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