FileSystemObject - Listando pastas

[Leosouzabh 0]

Pessoal

Estou com um problema, como usar o FSO para fazer a listagem de pastas, eu consegui faze-lo listar arquivos desta forma:

 

<%Dim pathpath = Trim(Request.Form("path")) Set fs = server.CreateObject("Scripting.FileSystemObject")Set pasta = fs.GetFolder(path)%><h1><%= path %></h1><table border="1"><tr>  <td class="td">Nome Do arquivo</td>  <td class="td">Tamanho Do arquivo</td>  <td class="td">Data Modificado</td>  <td class="td">Tipo Do arquivo</td>  <td class="td">Atributos</td></tr><%FOR EACH file IN pasta.Files%><tr>  <td align="right"><a href= <%= path & file.name %> ><%=file.name%></a></td>  <td align="right"><%=formatnumber(file.size)%>kb</td>  <td align="right"><%=file.datelastmodified%></td>  <td align="right"><%=file.type%></td>  <td align="right"><%=file.attributes%></td></tr><%NEXT%>

Mais como fazer listagem de pastas

at,

Leo

[mx loco 1]

Segue um exemplo:

http://www.sloppycode.net/Reference/FSO/Ref-140.html