retornar as sub-pastas de uma pasta

[Pensa 0]

Existe alguma maneira, utilizando FSO (File System Object), que eu possa obter o nome de todos os sub-diretórios de um determinado diretório em meu servidor?EXEMPLO de estrutura de diretórios em meu servidor:

Pasta_principal      - pasta_1      - pasta_2      - pasta_3Pasta_contato      - pasta_contato_1...e por ai vai...

Quero saber se é possível com FSO envia o parâmetro "Pasta_principal" e o sisema me retornar em uma espécie de array os valores: "pasta_1, pasta_2 e pasta_3".Valeus!Renan

[Mário Monteiro 179]

eh sim cara<% '***************** SubFolders Set fso = CreateObject("Scripting.FileSystemObject") Set folderObject = fso.GetFolder(Server.MapPath("\")) Set folderObject2 = folderObject.SubFolders For Each subFolder in FolderObject2 Response.Write subFolder & "<br>" Next Set folderObject2 = Nothing Set folderObject = Nothing Set fso = Nothing %>