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

首頁(yè) > 編程 > ASP > 正文

遍歷目錄以及目錄下文件的函數(shù)

2024-05-04 10:58:56
字體：大 中 小
來(lái)源：轉(zhuǎn)載
供稿：網(wǎng)友
<%@ 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:盤(pán)
%>

--------------------------------------
很不錯(cuò)哦。

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 阳高县| 万全县| 精河县| 汨罗市| 章丘市| 长垣县| 蓝山县| 金川县| 商洛市| 达孜县| 清丰县| 四会市| 深水埗区| 莱西市| 肥城市| 台江县| 朝阳区| 图木舒克市| 和平县| 丰镇市| 清原| 辽阳县| 阳西县| 四会市| 临高县| 胶南市| 旌德县| 宾阳县| 翁牛特旗| 北辰区| 鄂托克前旗| 蓬安县| 平远县| 阳春市| 陈巴尔虎旗| 邮箱| 龙井市| 白城市| 林西县| 屏南县| 彩票|