eski bir konu ama belki ihtiyacı olan vardır niyetine kod aşağıdaki gibidir.

<%
Set ObjFSO=Server.CreateObject("Scripting.FileSystemOb ject")
Set FSOFiles = ObjFSO.GetFolder(Server.MapPath("../temalar"))

For each FSOFileList in FSOFiles.SubFolders
%>
<tr>
<td height="20"><%=FSOFileList.Name%></td>
</tr>
<%
Next
%>