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!!

[JuanRAPerez]

for each item in folder.SubFolders
'aqui metes las opciones
Response.Write "<option value="&folder.Name&">"&separador&folder.Name&"</option>"
next

suerte

[yomesmo]

Gracias JuanRa, pero si hago eso solo mostrará las subcarpetas del primer nivel, lo que hago es volver a llamar a la función para que muestre todas las subs.

Gracias de todas formas

[JuanRAPerez]

ah oki
cierto
no me fije que era una funcion

pero tu funcion su la imprimes se imprimiria asoi.

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

y solo listaria el ultimo folder asociado

[yomesmo]

Claro, eso es lo que pasa ahora mismo, solo recoge la última carpeta, y lo que necesito es que me devuelva todas las relacionadas...

:(

[yomesmo]

SOLUCIONADO, cuelgo el código por si el día de mañana a alguien le sirve:

<%
Dim ruta,sOptions,sRuta_Mostrar

ruta="/www/Imagenes_Web/imag_contenidos/"

set oFSO = server.CreateObject ("Scripting.FileSystemObject")
set oFolder_base0 = oFSO.GetFolder(server.MapPath(ruta)) 'base folder (Physical)

function escribir_carpetas()
response.Write "<select name='selCurrFolder' id='selCurrFolder' onchange='changeFolder()' class='inpSel'>"

response.write recursivo(oFolder_base0,oFolder_base0)

response.Write "</select>"
end function

function recursivo(oFolder,oFolder_base)
set oSubFolders = oFolder.SubFolders

if InStr(1,oFolder.path,"_vti_cnf")=0 then
sRuta_Mostrar = Replace(Replace(oFolder.path,oFolder_base.path,"") ,"\","/")

if CStr(currFolder)=CStr(oFolder.path) then
sOptions = sOptions & "<option value=""" & oFolder.path & """ selected>" & sRuta_Mostrar & "</option>" & vbCrLf
else
sOptions = sOptions & "<option value=""" & oFolder.path & """>" & sRuta_Mostrar & "</option>" & vbCrLf
end if
end if

for each item in oSubFolders
recursivo item,oFolder_base
next

sOptions = sOptions & vbCrLf
recursivo = sOptions
end function

escribir_carpetas()

%>

Funciona perfectamente