函数过程：
复制代码 代码如下:
%
'del.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"br>"
delfolder(spath"/"tmpfolder.name )
next
fso.DeleteFolder (server.MapPath (sPath))
end if
end sub
%>
调用方法：
复制代码 代码如下:
%
'调用例子
'del.asp放到要删除的目录同一层，要删除的目录存在且其下有若干子目录和文件，要对该目录具有修改权限。
delfolder("目录名")
%>
您可能感兴趣的文章:- PHP文件操作实现代码分享
- Asp.Net 文件操作基类(读取,删除,批量拷贝,删除,写入,获取文件夹大小,文件属性,遍历目录)
- Javascript之文件操作
- Javascript----文件操作
- jsp文件操作之读取篇
- jsp文件操作之追加篇
- jsp文件操作之写入篇
- ASP FSO文件操作函数代码（复制文件、重命名文件、删除文件、替换字符串）
