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.

<HTML>
<HEAD>
<TITLE>.:: Listando subpastas ::.</TITLE>
</HEAD>
<BODY>
<%
dim fs,fo,x, pastalocal
set fs=Server.CreateObject("Scripting.FileSystemObject")
pastalocal=split(Request.ServerVariables("script_name"),"/")

response.write "Pasta atual: " & pastalocal(1) & "<br>Subpastas: <hr>"

loc= Server.MapPath("/"&pastalocal(1))
set fo=fs.GetFolder(loc)
for each x in fo.SubFolders
  Response.write x.Name & "<br>"
Next
Response.write "<hr>"
set fo=nothing
set fs=nothing
%>
 </BODY>
</HTML>

Nós queremos saber sua opinião aqui