网站建设| 数据库类| 图形图象| 程序设计| 现代办公| 操作系统| 考试认证| 网络技术| 软件工程| 电脑相关| 文学作品
网站开发| 网页制作| 操作系统| 图象图形| 考试认证| 数据库类| 程序设计| 硬件技术| 现代办公| 网络技术| 笑话频道
 
您的位置: 电脑书库首页-> 电脑文摘-> 网站开发-> ASP/ASP.NET-> 遍历目录以及目录下文件的函数

遍历目录以及目录下文件的函数
作者:佚名 来源:InterNet 加入时间:2005-3-4
相关文章 相关书籍:
<%@ 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 "
---"
         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:盘
%>


[文章录入员:admin]

相关文章 相关书籍:
本站推荐内容

近期主机类热搜关键词:
美国服务器 美国服务器租用 海外服务器租用 国外服务器租用

ASP/ASP.NET
ASP/ASP.NET
PHP技术
JSP技术
XML技术
CGI/PERL
WEB服务器
WordPress专题
其它
电脑教程阅读排行
·用ASP连接数据库
·ASP基础
·使用Database Acces...
·让网站活起来(1)
·创建一个简单的ASP页
·创建HTML表格
·初学者必读 ASP运行环境的搭建
·ASP中FSO的神奇功能
·VBScript 基础 使用条件...
·VBScript 基础 VBSc...