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

首頁 > 編程 > ASP > 正文

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

2024-05-04 10:58:56
字體：大 中 小
來源：轉載
供稿：網友
<%@ 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 "
---"
　　　　　　　　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:盤
%>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 都匀市| 桓仁| 云和县| 岳普湖县| 闸北区| 新宾| 横峰县| 文水县| 喜德县| 平定县| 邵武市| 黎城县| 高碑店市| 青阳县| 德钦县| 思茅市| 金山区| 博兴县| 南充市| 丹阳市| 蓝山县| 和平县| 龙游县| 鄂伦春自治旗| 凌海市| 潮安县| 江华| 湄潭县| 新乡市| 大方县| 锡林浩特市| 民丰县| 南康市| 井研县| 洱源县| 巩留县| 五莲县| 弥勒县| 丹寨县| 上饶市| 通辽市|