ttx9n · 发表于 2008-7-22 08:54:21

asp遍历目录以及目录下文件的函数- 从网上找的不过都用不了,自己用Emeditor修正了一下 <%@ 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:盘
%>

0y3yp · 发表于 2022-8-26 14:11:46

问问问企鹅哇哇哇哇哇

q215357618 · 发表于 2023-2-12 16:56:33

天天源码社区www.tiantianym.com

xf9hlg1 · 发表于 2023-2-22 10:33:18

我要金豆金豆金豆

6hruhg · 发表于 2023-5-13 23:29:17

的沙发水电费水电费

81708585 · 发表于 2023-8-4 06:09:53

刷刷刷刷刷刷刷刷刷刷刷刷刷刷刷

i3x3r3 · 发表于 2023-9-8 22:43:38

hi哦和烦恼农家女

bp5jgbcnt · 发表于 2023-11-2 10:34:14

撒旦撒旦撒擦擦擦擦

81708585 · 发表于 2024-7-23 01:55:26

问问问企鹅哇哇哇哇哇

6ox8dn · 发表于 2024-7-27 10:30:00

挺不错的东西

账号		自动登录	找回密码
密码			立即注册

[ASP编程] asp遍历目录及子目录的函数

相关帖子