国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

asp遍歷目錄及子目錄的函數

2024-05-04 11:00:41
字體：大 中 小
來源：轉載
供稿：網友
<%@ 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:盤 
%>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 中西区| 天峨县| 台安县| 米泉市| 长治县| 鄂伦春自治旗| 泰宁县| 武穴市| 兰考县| 兴城市| 赣榆县| 绥江县| 邢台县| 定远县| 宣威市| 林芝县| 鄄城县| 乐安县| 临邑县| 安福县| 永和县| 苗栗市| 陆川县| 通州市| 东宁县| 灵川县| 土默特左旗| 社会| 南召县| 叙永县| 灵武市| 五大连池市| 山阴县| 平遥县| 同德县| 来宾市| 黎平县| 肥东县| 新丰县| 安康市| 河东区|