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

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

阅读更多
个人分类: asp
想对作者说点什么? 我来说一句

遍历目录及目录下文件.vbs

2010年06月19日 807B 下载

没有更多推荐了,返回首页

不良信息举报

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

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭