Visa enbart mappar

Skulle vilja ha hjälp med en sak. Ett script som visar enbart
mapparna i en katalog men inte själva filerna? Någon som kan
hjälpa mig?

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(".")) ' Den aktuella katalogen

For Each Folder In objFolder.SubFolders
  Response.Write(Folder.Name & "<br>")
Next

Set objFolder = Nothing : Set objFSO = Nothing