网络编程
位置:首页>> 网络编程>> Asp编程>> FSO遍历文件夹目录及目录下文件asp代码

FSO遍历文件夹目录及目录下文件asp代码

 来源:CSDN 发布时间:2008-10-10 12:54:00 

标签:fso,文件夹,目录,函数

希望对您有所帮助!

推荐:[精品]ASP中常用的22个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:盘
%>  

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com