在Classic ASP中列出文件夹结构

<%
Dim objFSO, objFolder, objFile, objSubFolder

' 创建FileSystemObject对象
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

' 获取指定文件夹的路径
Dim folderPath
folderPath = "C:\path\to\folder"

' 获取指定文件夹对象
Set objFolder = objFSO.GetFolder(folderPath)

' 遍历文件夹中的文件
For Each objFile in objFolder.Files
    Response.Write "文件名: " & objFile.Name & "<br>"
Next

' 遍历文件夹中的子文件夹
For Each objSubFolder in objFolder.SubFolders
    Response.Write "文件夹名: " & objSubFolder.Name & "<br>"
Next

' 释放对象
Set objFile = Nothing
Set objSubFolder = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>