点晴MIS内部交流论坛加入收藏
新手上路
论坛搜索
 您的位置:点晴MIS系统问题答疑『 经验分享&问题答疑 』浏览当前帖子  
登 陆注 册论坛帮助  

  网站搜索
  搜索范围: 搜索方式: 关键词(可用空格分开)  

  作者及文章信息: 本文热度:84 % 
admin

积分:73146
等级:网站管理员
文数:13451
注册:2004-7-20

 信息   留言   主页   编辑   引用    

楼 顶 

 asp遍历目录及子目录的函数


<%@ 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 "


      Bianli(nowpath)'递归 
    Next 
    Set Objfolder=nothing 
    Set Objsubfolders=nothing 
    Set Fso=nothing 
  End Function 

  Bianli("D:") '遍历d:盘 
%>


该文章在 2022/6/21 23:22:50 编辑过

  离 线  2022/6/21 23:22:49 
  本文章共有 0 页, 0 张回文,每页有 10 张回文 >> [ ]
页码:
Copyright 2003-2022 ClickSun All Rights Reserved