Mostrar carpetas y subcarpetas

[eeeee]

Hola,
Necesito acceder a todas las carpetas y subcarpetas que tenga un directorio determinado. He llegado hasta la subcarpeta 3, pero no sigo más adelante.
Lo he conseguido así:

Set FSO = CreateObject("Scripting.FileSystemObject")
Set folder = FSO.GetFolder("K:\Mp3\mp3 cd's\")

For each subfolder in folder.SubFolders
SubCNombre = Subfolder.Name
Response.Write SubCNombre &"<br>"

For each subfolders in subfolder.SubFolders
SubCNombre1 = Subfolders.Name
Response.Write " - - "&SubCNombre1 &"<br>"

For each folder in subfolders.SubFolders
SubCNombre2 = folder.Name
Response.Write " - - - - - "&SubCNombre2 &"<br>"

next
next
next

Alguien sabe como seguir por lo menos otras 3 subcarpetas más o si hay algún otro método mejor ??

Gracias