遍历目录以及目录下文件的函数- 从网上找的不过都用不了,自己用Emeditor修正了一下,2006-6-8-1

转载 2006年06月08日 00:40:00

<%@ 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:盘
%>

相关文章推荐

photoshop CS6 反相功能 用不了

第一种情况是: 一般各种色彩模式都能反相。但是矢量图层(比如形状)和文字图层时不能反相。 第二种情况是: RGB颜色位数必须是8位或是16位的,32位的也用不了反色。   反相处理就能达到目...

ColdFusion8目录遍历漏洞

ColdFusion8中setting.cfm的locale参数存在目录遍历漏洞,ke

java 遍历文件目录

遍历目录查找文件delphi

  • 2010-01-20 19:11
  • 314KB
  • 下载

rc0.d  rc1.d  rc2.d  rc3.d  rc4.d  rc5.d  rc6.d rc.local/etc/rc.d文件目录详解

控制脚本目录/etc/rc.d,该目录下存在各个运行级别的脚本文件,以下是rhel-server-6.3为例的查询结果: [root@localhost etc]# cd /etc/rc.d ...

window下目录遍历文件

内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)