函数过程：

复制代码 代码如下:

<%

'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("目录名")

%>