网络编程
位置:首页>> 网络编程>> Asp编程>> asp fso删除非空目录的例子

asp fso删除非空目录的例子

  发布时间:2008-11-26 20:03:00 

标签:fso,删除,目录,例子,asp

 这是个删除非空目录的例子

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
   'response.Write spath&"/"&tmpfolder.name
   
   delfolder(spath&"/"&tmpfolder.name )
  next
  fso.DeleteFolder (server.MapPath (sPath))
 end if
end sub
%>
<%
'调用例子
'test.asp放到wwwroot\下
'wwwroot\1\存在,且其他下有若干子目录和文件
delfolder("1")
%>

 

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com