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

首頁 > 編程 > ASP > 正文

ASP，FSO遍歷目錄及目錄下文件

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 瓮安县| 宽城| 宿州市| 巫溪县| 江口县| 阿克陶县| 盈江县| 贡觉县| 湛江市| 磴口县| 九寨沟县| 高清| 郸城县| 双峰县| 右玉县| 剑阁县| 陇川县| 双鸭山市| 宝兴县| 凭祥市| 揭阳市| 都昌县| 萍乡市| 呼和浩特市| 同仁县| 镇康县| 安溪县| 安国市| 大丰市| 宜章县| 腾冲县| 教育| 手游| 博湖县| 民丰县| 遵义县| 永福县| 咸宁市| 湖州市| 玛沁县| 栾川县|