ASP,FSO遍历目录及目录下文件


<%@ Language=VBScript %>
<%
 '我写的一个遍历目录以及目录下文件的函数,
%>
<%
  function bianli(path)
    set fso=server.CreateObject("scripting.filesystemobject")  

    on error resume next
    set objFolder=fso.GetFolder(path)
    
    set objSubFolders=objFolder.Subfolders
    
    for each objSubFolder in objSubFolders
            
      nowpath=path + "\" + objSubFolder.name
      
      Response.Write nowpath

      set objFiles=objSubFolder.Files

      for each objFile in objFiles
        Response.Write "<br>---"
        Response.Write objFile.name
      next
      Response.Write "<p>"
      bianli(nowpath)'递归
      
    next
    set objFolder=nothing
    set objSubFolders=nothing
    set fso=nothing
  end function
%>
<%
  bianli("d:") '遍历d:盘
%>



相关阅读:
jsp ajax上传标签原始版本
Ajax 用户名验证是否存在
XP里面的一些禁忌 用XP的人一定要看
Linux操作系统下实时定时器posix_timer
asp下的一个很简单的验证码程序
未来操作系统:Windows和Linux掌权
如何获知页面上的图象的实际尺寸?
Linux系统自带Mysql、Apache、Php卸载
JavaScript中使用正则匹配多条,且获取每条中的分组数据
Linux系统硬盘的维护及优化
Windows7系统语音识别功能控制电脑操作
javascript css styleFloat和cssFloat
css 解决浏览器兼容问题
利用MS AJAX注册Javascript命名空间并创建类
快速导航

Copyright © 2016 phpStudy |