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

首頁 > 編程 > ASP > 正文

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

2024-05-04 11:02:37
字體：大 中 小
供稿：網(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:盤
%>

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

發(fā)表評論 共有條評論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 达拉特旗| 乐昌市| 凌海市| 雅安市| 海宁市| 赤峰市| 白朗县| 葵青区| 秦安县| 揭东县| 铜陵市| 天等县| 沁阳市| 加查县| 浦北县| 通化县| 蓝田县| 阿合奇县| 阿克| 岑溪市| 甘泉县| 南乐县| 察雅县| 遂宁市| 紫金县| 东安县| 湾仔区| 扬州市| 阿合奇县| 新蔡县| 衡山县| 石楼县| 利川市| 延边| 黎平县| 乐至县| 桃江县| 招远市| 西藏| 会东县| 龙泉市|