asp遍历站点所有文件夹的代码。

<！——
字体大小：12px身体{；}
-->


<！——
子fsubmit（）
form1.submit
端子
-->



-请选择—
整个网站
当前目录
<
昏暗的FSO，听听听，名字，strpath
设置FSO = server.createobject（脚本。FileSystemObject ）

strpath = 。
打电话给BL（strpath）

BL（strpath）功能
听听听= fso.getfolder集（server.mappath（strpath））

每个objsubfolder在objfolder.subfolders
response.write 代替（strpath，，
打电话给BL（strpath objsubfolder。名称）
下一个

端功能
%>



<
FPath =要求表单（FPath ）

如果FPath <> 0 和FPath <>空然后

响应。写当前文件夹：代替（FPath，，

听听听= fso.getfolder集（server.mappath（FPath））

每个objsubfolder在objfolder.subfolders
response.write子文件夹名称：objsubfolder.name
下一个

响应。写

每个名字在objfolder.files
response.write 文件名：objfile.name
下一个

听听听=没有设置

最后如果
%>