当前位置: 首页 > 图文教程 > 网络编程 > ASP > fso删除当前文件夹下所有的内容

ASP
[原创]asp下用实现模板加载的的几种方法总结
asp下利用fso实现文件夹或文件移动改名等操作函数
asp cint clng的范围与防止cint和clng的溢出解决方法大全
asp防范跨站点脚本攻击的的方法
独孤剑写的马克斯迅雷片库采集插件1.4 官方最新版提供下载了
根据日期得到生肖的ASP函数
不错的主要用于加密的vbs(asp)位移运算类
Script.VBS.Agent.ai juan.vbs专杀
循环取值Request.QueryString的用法
asp下实现字符串的补充fill()
无服务器做任意二级米子站
几种另类的ASP后门
asp事物功能简单小应用
ASP获取网页全部图片地址并保存为数组的正则
通过客户端验证上传图片文件大小的ASP源码
asp下计算分页的几种方法
谈动态多行多列,循环行和列,输出M行N列的ASP代码
asp在线执行sql语句的函数
asp正则html的图片,对图自动缩放大小
文件名 正则表达式提取方法

ASP 中的 fso删除当前文件夹下所有的内容


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-08-14   浏览: 243 ::
收藏到网摘: n/a

<HTML>
<HEAD><TITLE>fso删除当前文件夹中的所有内容</TITLE></HEAD>
<style>
body {font-size:12px;margin-top:20px;margin-left:20px;}
</style>
<BODY>
<%
'功能:删除当前文件夹下所有内容,包括文件夹和文件
'开发:wangsdong
'网站:www.aspprogram.cn
'原创文章,转载请保留此信息

'创建一个FileSystemObject对象的事例
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
'创建一个Folder对象
foldername=server.mappath("./")
Set MyFolder=MyFileObject.GetFolder(foldername)
i=0
'循环显示其中文件夹
For Each thing in MyFolder.subfolders
  if MyFileObject.folderExists(thing) then            '判断folder文件夹是否存在
     t2=thing
     MyFileObject.deletefolder thing                         '删除folder文件夹
  response.write "<br>"&t2&"-----文件夹已经删除"
  else
     response.write "<br>"&thing&"-----文件夹不存在,无法删除"
  end if
i=i+1
Next
response.write "共有删除了"&i&"个文件夹<br><br>"

'循环显示其中文件
i=0
For Each thing in MyFolder.Files
 if MyFileObject.FileExists(thing) then            '判断folder文件夹是否存在
    t2=thing
     MyFileObject.DeleteFile thing                         '删除folder文件夹
  response.write "<br>"&t2&"-----文件已经删除"
  else
     response.write "<br>"&thing&"-----文件不存在,无法删除"
  end if
i=i+1
Next
response.write "共有删除了"&i&"个文件"
%>
</Body>
</HTML>