How do I get a list of a folder's subfolders?

Many people expect FileSystemObject to just return a list of subfolders and display them to the screen. It's almost that easy: 
 

<%      folderspec = server.mappath("/")        Set fso = CreateObject("Scripting.FileSystemObject")      Set fold = fso.GetFolder(folderspec)      for each subfolder in fold.subFolders          Response.Write(subfolder.Name & "<br>")      next      set fold = nothing      set fso = nothing  %>

 
And here is a sample in JScript: 
 

<script language=JScript runat=server>        var folderspec = Server.mapPath("/");        var fso = new ActiveXObject("Scripting.FileSystemObject");      var fold = fso.GetFolder(folderspec);      for (f = new Enumerator(fold.subFolders); !f.atEnd(); f.moveNext())      {          Response.Write(f.item().Name + "<br>");      }      var fold = null;      var fso = null;    </script>