Coleção SubFolders ASP

Definição e Uso

A coleção SubFolders pode retornar uma coleção composta por todas as subpastas dentro da pasta especificada.

Sintaxe:

FolderObject.SubFolders

Exemplo

<%
dim fs,fo,x
definir fs=Server.CreateObject("Scripting.FileSystemObject")
definir fo=fs.GetFolder("c:\test\")
para cada x em fo.SubFolders
  Imprimir o nome de todos os subpastas na pasta de teste
  Response.write(x.Name & "<br />")
next
set fo=nothing
set fs=nothing
%>

Sai como:

css
html
xml
asp
JavaScript