asp删除非空目录的例子
2018-09-06 09:48
阅读：756
这是个删除非空目录的例子
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
delfolder(spath/tmpfolder.name )
next
fso.DeleteFolder (server.MapPath (sPath))
end if
end sub
%>
<%
调用例子
test.asp放到下
wwwroot1存在，且其他下有若干子目录和文件
delfolder(1)
%>
评论
亲，登录后才可以留言！