国产探花免费观看_亚洲丰满少妇自慰呻吟_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:盤 
%>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 芜湖县| 安西县| 乐至县| 黄浦区| 中卫市| 隆德县| 宁远县| 神池县| 桃源县| 乌审旗| 博兴县| 武陟县| 贵州省| 武川县| 永嘉县| 城步| 洱源县| 改则县| 雷波县| 耒阳市| 麻城市| 乌审旗| 洛阳市| 宜州市| 长武县| 格尔木市| 白城市| 十堰市| 广丰县| 肃北| 达日县| 宁明县| 辽源市| 建平县| 屯留县| 漯河市| 麻栗坡县| 哈尔滨市| 安乡县| 禹城市| 宁德市|