请选择 进入手机版 | 继续访问电脑版

饕餮源码网,商业源码,游戏源码下载,discuz插件,棋牌源码下载,精品源码论坛

 找回密码
 立即注册
查看: 95|回复: 1

[ASP编程] 遍历目录以及目录下文件的函数

[复制链接]

7万

主题

8万

帖子

32万

积分

论坛元老

Rank: 8Rank: 8

积分
329525
发表于 2006-10-28 00:00:00 | 显示全部楼层 |阅读模式
<%@ 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:盘
%>

回复

使用道具 举报

0

主题

9340

帖子

0

积分

中级会员

Rank: 3Rank: 3

积分
0
发表于 2023-1-25 12:25:21 | 显示全部楼层
很不错的源码论坛
回复 支持 反对

使用道具 举报

高级模式
B Color Image Link Quote Code Smilies

本版积分规则

手机版|小黑屋|网站地图|饕餮源码网 ( 海外版 )

GMT+8, 2023-2-4 20:26 , Processed in 0.163181 second(s), 26 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表