<%
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>"
Next
Set objFolder=nothing
Set objSubFolders=nothing
Set fso=nothing
End Function
%>
<%
'=============调用示例
SubFolders(Server.MapPath("/"))
%>
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。
