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

首頁 > 編程 > ASP > 正文

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

2020-07-27 12:58:57
字體：大 中 小
來源：轉載
供稿：網友
<%@ 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:盤 
%>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 九龙县| 元氏县| 青河县| 海林市| 来宾市| 元阳县| 甘南县| 台江县| 边坝县| 子长县| 灵台县| 达州市| 晴隆县| 天峻县| 商南县| 威海市| 葫芦岛市| 明光市| 屯昌县| 南投县| 沙坪坝区| 海南省| 中超| 禄丰县| 高尔夫| 丹江口市| 辽中县| 青阳县| 盐亭县| 林周县| 盐亭县| 八宿县| 大悟县| 商河县| 田东县| 上饶县| 宜兰县| 濮阳县| 林芝县| 蛟河市| 吕梁市|