Lista despegable que muestre carpetas y subcarpetas

[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