函数过程：
复制代码 代码如下:
<%
'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("目录名")
%>