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

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

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

2020-07-27 13:24:27
字體：大 中 小
來(lái)源：轉(zhuǎn)載
供稿：網(wǎng)友
<%@ Language=VBScript %>
<%
　'遍歷目錄以及目錄下文件的函數(shù)，
%>
<%
　　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 "
---"
　　　　　　　　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)
%>

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 横山县| 古浪县| 慈利县| 泰州市| 河间市| 桐城市| 翼城县| 天峻县| 教育| 霍邱县| 涟源市| 阿拉尔市| 加查县| 昌吉市| 沽源县| 滁州市| 安西县| 泰来县| 阜新| 手机| 新乡县| 墨竹工卡县| 新安县| 扬州市| 石阡县| 和林格尔县| 南华县| 汽车| 巴楚县| 吉木萨尔县| 原平市| 高尔夫| 潼关县| 芦山县| 黄山市| 凤山县| 崇信县| 鄯善县| 宣汉县| 斗六市| 永平县|