<%
Function SubFolders(Path)
Dim fso 'fso对象
Dim objFolder '文件夹对象
Dim objSubFolders '子文件夹集合
Dim objSubFolder '子文件夹对象
Dim objFiles '文件集合
Dim objFile '文件对象
Set fso=server.CreateObject("scripting.filesystemobject")
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>"
SubFolders(nowpath) '调用递归
Next
Set objFolder=nothing
Set objSubFolders=nothing
Set fso=nothing
End Function
%>
<%
'=============调用示例
SubFolders(Server.MapPath("/"))
%>
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。