Listar todas as pastas existentes em um diretório com ASP

Olá pessoal, desenvolvi um código ASP para exibir todas as pastas em um diretório específico.

  Dim obj_Pasta
  Dim o_met
  Dim o_met1
  Dim o_met2
  Dim a_pasta
  Dim caminho

  caminho = "c:\"

  Set obj_Pasta = CreateObject("Scripting.FileSystemObject")
  Set o_met = obj_Pasta.GetFolder(caminho)
  Set o_met2 = o_met.SubFolders

  For Each o_met1 In o_met2
      a_pasta = a_pasta & o_met1.name
      a_pasta = a_pasta &  "<BR>"
  Next

  Response.Write a_pasta

Esta matéria foi postada originalmente no ASP4Developers por Rafael Felix Budel, que na época era "Programador ASP, JavaScript, VBScript, CSS2, DHTML, utilizando tecnologia XML, XMLHTTP, XMLDOM, ASP.NET - C#.". Hoje, vai saber...