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

首頁 > 編程 > ASP > 正文

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

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 芦溪县| 同仁县| 吴忠市| 云和县| 汾西县| 成武县| 永德县| 云安县| 祥云县| 石泉县| 科技| 两当县| 德阳市| 沾化县| 淳安县| 都兰县| 清丰县| 涡阳县| 华亭县| 临沭县| 高陵县| 香港 | 阜平县| 金湖县| 县级市| 铜梁县| 宜宾县| 孟村| 准格尔旗| 临朐县| 鹿邑县| 尼玛县| 盐边县| 金山区| 金寨县| 成安县| 桂林市| 焉耆| 青田县| 班玛县| 曲沃县|