快活林资源网 Design By www.csstdc.com
<%@ 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:盘
%>

快活林资源网 Design By www.csstdc.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
快活林资源网 Design By www.csstdc.com