Listando subpastas de uma pasta com FSO

O código abaixo lista todas as subpastas existentes na pasta principal utilizando o componente File System Object.

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
%>
 

Tags:

• Arquivos,
• ASP,
• FSO