asp fso删除非空目录的例子

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

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

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")
%>

 

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

猜你喜欢

  • Access命令行参数

    2007-08-23 15:35:00
  • SQL Server性能的改进得益于逻辑数据库设计

    2009-10-23 13:55:00
  • SQL根据时间范围条件查询数据

    2009-01-18 13:32:00
  • JavaScript Table行定位效果

    2009-05-25 10:47:00
  • 将表数据生成SQL脚本的存储过程和工具

    2009-01-08 15:24:00
  • asp如何显示SQL数据库所有表的名称?

    2010-06-08 09:30:00
  • JavaScript版无组件上传类

    2007-10-06 23:16:00
  • MySQL数据库生产环境的维护工作总结的经验

    2011-12-01 10:20:52
  • 布局篇(1)—If you love css …

    2008-04-16 14:14:00
  • mysql创建master/slave详细步骤

    2011-05-21 15:29:00
  • asp如何读取服务器上的驱动器?

    2009-11-18 20:50:00
  • 探索网页设计中的黄金比例

    2008-10-20 12:26:00
  • Javascript DOM 编程实例讲解--仿LightBox效果提示框

    2008-05-01 13:25:00
  • 用正则替换所有URL

    2009-03-13 13:51:00
  • 网页超级链接加上快捷键方法

    2010-03-16 12:28:00
  • 导航设计与信息架构

    2008-01-13 22:08:00
  • javascript图片预加载

    2009-08-30 12:47:00
  • 你是真正的用户体验设计者吗? Ⅵ

    2008-04-19 18:23:00
  • 中英文双语导航菜单

    2007-05-11 17:04:00
  • 宽屏不是用来阅读的

    2009-04-05 15:59:00
  • asp之家 网络编程 m.aspxhome.com