函數過程：
複製代碼代碼如下:
<%
'del.asp
dimfso,tmpfolder,tmpsubfolder,tmpfile,tmpfiles
setfso=server.CreateObject("Scripting.FileSystemObject")
subdelfolder(sPath)
If(fso.FolderExists(server.MapPath(sPath)))then
settmpfolder=fso.GetFolder(server.MapPath(sPath))
settmpfiles=tmpfolder.files
foreachtmpfileintmpfiles
fso.DeleteFile(tmpfile)
next
settmpsubfolder=tmpfolder.SubFolders
foreachtmpfolderintmpsubfolder
response.Writespath&"/"&tmpfolder.name&"<br>"
delfolder(spath&"/"&tmpfolder.name)
next
fso.DeleteFolder(server.MapPath(sPath))
endif
endsub
%>
調用方法：
複製代碼代碼如下:
<%
'調用例子
'del.asp放到要刪除的目錄同一層，要刪除的目錄存在且其下有若干子目錄和文件，要對該目錄具有修改權限。
delfolder("目錄名")
%>