O código abaixo lista todas as subpastas existentes na pasta principal utilizando o componente File System Object.
.:: Listando subpastas ::. <% dim fs,fo,x, pastalocal set fs=Server.CreateObject("Scripting.FileSystemObject") pastalocal=split(Request.ServerVariables("script_name"),"/") response.write "Pasta atual: " & pastalocal(1) & "
Subpastas:
" loc= Server.MapPath("/"&pastalocal(1)) set fo=fs.GetFolder(loc) for each x in fo.SubFolders Response.write x.Name & "
" Next Response.write "
" set fo=nothing set fs=nothing %>