Mostrar carpetas de un directorio

[meru-kun]

Tengo el siguiente código, el cual, se supone, debe mostrar todas las carpetas que hay dentro de un subdirectorio. El path existe, pero me da error:"Microsoft VBScript runtime (0x800A01B6)
Object doesn't support this property or method: 'Folders'"

Aquí os dejo el código:

Código:

	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objFolder = objFSO.GetFolder(Server.MapPath("za/avas/"))
		For Each objFolder In objFolder.Folders
		 response.write objFolder
		Next
	Set objFSO = Nothing
	Set objFolder = Nothing
	Set objFile = Nothing