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

首頁 > 編程 > ASP > 正文

遍歷目錄以及目錄下文件的函數

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

--------------------------------------
很不錯哦。

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 原平市| 伊春市| 石景山区| 青神县| 盐源县| 齐河县| 湖南省| 章丘市| 泌阳县| 西昌市| 吉木乃县| 霸州市| 松滋市| 博乐市| 区。| 彝良县| 封开县| 稷山县| 唐河县| 巨鹿县| 昔阳县| 永丰县| 霍州市| 池州市| 绥阳县| 陆河县| 深圳市| 太康县| 樟树市| 兴安县| 宾阳县| 扶风县| 龙山县| 忻州市| 英山县| 申扎县| 石屏县| 马尔康县| 文化| 洛川县| 申扎县|