sacar las rutas de una carpeta de imagenes en un select (lista)

[jorcri]

Hola, como podria sacar en una lista desplegable (select) todas las rutas que contenga una carpeta con imagenes, por ejemplo:

En la carpeta imagenes tengo:

imagenes/imagen1.jpg
imagenes/imagen2.jpg
etc...

y que dichas imagenes salgan sus rutas en el select o lista desplegable:

Código:

<select name="Imagen" size="1" id="Imagen">
                          <option>imagenes/imagen1.jpg</option>
                          <option>imagenes/imagen2.jpg</option>
                          <option>              etc..         </option>
</select>

ya que necesito que a medida que se suban imagenes, estas se añadan al select automaticamente.

Gracias de antemano!

[TurKa]

A ver si esto te sirve:

Código:

<SELECT name="Imagen">
<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(Server.Mappath("/imagenes/"))
Set files = folder.Files
  
For Each file in Files
%>
<option><%=file.Name%></option>
<%
Next

Set files = Nothing
Set folder = Nothing
Set fso = Nothing
%>
</SELECT>

[jorcri]

Gracias Turka, funciona perfectamente, lo que me muestra es el nombre del archivo, pero no la ruta, osea da:

1.jpg
2.jpg

lo que necestio es que salga en el select la ruta:

imagenes/1.jpg
imagenes/2.jpg

me supongo que es aqui donde hay que indicar la ruta y no el nombre, pero desconozco la sintaxis:

Código:

<option><%=file.Name%></option>

muchas gracias!!!

[AlZuwaga]

Pero si la ruta ya la conocés!
Fijate en ésta línea:

Set folder = fso.GetFolder(Server.Mappath("/imagenes/"))

La parte en negrita te está dando la ruta FISICA

Igual, si file.Name te da el nombre del archivo, estoy casi seguro que file.path te da la ruta (ahora no lo recuerdo, pero seguro que si)

[jorcri]

Iniciado por Al Zuwaga

Pero si la ruta ya la conocés!
Fijate en ésta línea:

Set folder = fso.GetFolder(Server.Mappath("/imagenes/"))

La parte en negrita te está dando la ruta FISICA

Igual, si file.Name te da el nombre del archivo, estoy casi seguro que file.path te da la ruta (ahora no lo recuerdo, pero seguro que si)

cierto, si, ya lo probe antes y tambien con folder, pero me da la ruta entera en formato de archivo (\) desde el disco del servidor y claro no es plan, me da:

D:\domains\el_dominio_x.com\root\imagenes\1.jpg

y lo que necesito es la ruta desde raiz de la web como url (/), osea:

imagenes/1.jpg

gracias y un saludo!!

[AlZuwaga]

De nuevo, la ruta ya la sabés porque sos vos el que se la indica:

Código:

<SELECT name="Imagen">
<%
RutaIndicadaPorMi = "/imagenes/"
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(Server.Mappath(RutaIndicadaPorMi))
Set files = folder.Files
  
For Each file in Files
%>
<option><%=RutaIndicadaPorMi & file.Name%></option>
<%
Next

Set files = Nothing
Set folder = Nothing
Set fso = Nothing
%>
</SELECT>

[jorcri]

pues si, muchas gracias, a veces la solucion esta delante de mi y pienso que hay que buscar algo mas complicado y me quedo clavado.

Yo buscaba la manera de que el la encontrase, cuando es mas facil indicandosela directamente.

gracias de nuevo

[AlZuwaga]

Me alegro, pero igual quiero remarcar algo de lo que no me avivé antes:

Iniciado por jorcri

cierto, si, ya lo probe antes y tambien con folder, pero me da la ruta entera en formato de archivo (\) desde el disco del servidor y claro no es plan, me da:

D:\domains\el_dominio_x.com\root\imagenes\1.jpg

y lo que necesito es la ruta desde raiz de la web como url (/), osea:

imagenes/1.jpg

gracias y un saludo!!

Siempre que trabajes con FSO (File System Object), con server.MapPath(), etc, te va a devolver rutas físicas porque justamente son objetos del sistema de archivos del servidor

Un saludo

[jorcri]

ok, gracias de nuevo.