[点晴永久免费OA]asp遍历目录及子目录的函数

admin

2022年6月21日 23:22 本文热度 921

<%@ 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:盘
%>

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

关键字查询

函数

正在查询...

点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。

点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理，结合码头的业务特点，围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体，是物流码头及其他港口类企业的高效ERP管理信息系统。

点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。

点晴免费OA是一款软件和通用服务都免费，不限功能、不限时间、不限用户的免费OA协同办公管理系统。