本站为一个技术型PHP个人门户站,提供一些代码,技术文章、免费空间消息信息、让学习编程更轻松和不要钱买空间更方便-PHP小戴
你当前的位置:首页>>网友投稿
小戴个人门户站导航 PHP小戴个人门户站 关于站长web个人门户站 设计服务-网络公司,建设网站,企业logo设计,包装设计,网站设计,整站程序开发 联系站长-小戴个人门户站
  • 技术文章排行榜
文章数据加载中...
  • 免费空间排行榜
空间数据加载中...

fso清空文件夹下文件代码

  • 有时候我们想删除一个文件夹里的所有文件,下面的代码就可以实现

    <HTML>
    <HEAD><TITLE>fso删除当前文件夹中的所有内容</TITLE></HEAD>
    <style>
    body {font-size:12px;margin-top:20px;margin-left:20px;}
    </style>
    <BODY>
    <%
    '功能:删除当前文件夹下所有内容,包括文件夹和文件
    '开发:wangsdong


    '创建一个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>


  • [时间:2008-12-17 13:56:21][点击:]

  • 上下篇文章加载中...
返回首页 | 关于站长 | 联系站长| 设计服务 | 建站资源 | 技术文章 | 娱乐中心 | 免费空间 | 友情链接 | 留言蜚语 | 网站地图| 网友投稿|RSS订阅 
QQ:277728291 联系方式:15824537062 mail:27772821@163.com
版权所有 2008-2018 PHP小戴个人门户站-编程技术和空间和文章共享-www.phpxd.com Copyright 2008 phpxd.com