Lista despegable que muestre carpetas y subcarpetas

[yomesmo]

Casi lo tengo, pero me falta el detalle (Que diría el gran sabio Cantinflas)

Necesito mostrar en una lista despegable todas las carpetas y subcarpetas a partir de una ruta preestablecida. El listado de carpetas y subcarpetas, y subcarpetas de las subcarpetas, etc.

El formato de presentación en la lista quiero que sea así:

carpeta 1
carpeta 2
carpeta 2/sub-carpeta 2
carpeta 2/subcarpeta 2/sub-carpeta 22

Estoy intentando con este código, pero solo consigo recoger la última variable, no las anteriores:

<%
path =Server.MapPath("../../Ruta_Fotos/")
ListarCarpetas path,""

function ListarCarpetas(path,separador)

dim folder, file, item
set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(path)


Response.Write "<option value="&folder.Name&">"&separador&folder.Name&"</option>"

separador = folder.Name&"/"

for each item in folder.SubFolders
ListarCarpetas item.Path,separador
next

set folder = Nothing
set fs = Nothing
end function


%>

SOS - SOS -SOS

Gracias de antemano!!