Foros del Web » Programando para Internet » ASP Clásico »

Conocer la cantidad de archivos de una carpeta

Estas en el tema de Conocer la cantidad de archivos de una carpeta en el foro de ASP Clásico en Foros del Web. Tengo el siguiente problema. Hago una galería de imágenes con miniaturas y al presionar sobre cada una pasa un dato a un página asp, que ...
  #1 (permalink)  
Antiguo 23/04/2003, 20:03
 
Fecha de Ingreso: noviembre-2001
Ubicación: Montevideo
Mensajes: 506
Antigüedad: 22 años, 6 meses
Puntos: 0
Conocer la cantidad de archivos de una carpeta

Tengo el siguiente problema. Hago una galería de imágenes con miniaturas y al presionar sobre cada una pasa un dato a un página asp, que abré una fotografía.

Me gustaría que una vez abierta la fotografía, se pudiera volver a la página de miniaturas o ver la siguiente foto.

Dado que nombre las fotos como, 01, 02, 03, etc; es muy fácil sumar uno a la fotografía actual y pasar a la siguiente.

La pregunta es si hay alguna manera de saber cuando es la última foto. Es decir si mediante asp es posible conocer la última foto. Serviría saber igual cuantos archivos hay en una carpeta, porque si se que hay 59 (por ej.) la última foto sería 59.jpg.

Saludos y gracias.
__________________
Alvaro García
  #2 (permalink)  
Antiguo 23/04/2003, 21:22
Avatar de bakanzipp  
Fecha de Ingreso: noviembre-2001
Ubicación: santiago de shilli
Mensajes: 2.554
Antigüedad: 22 años, 7 meses
Puntos: 0
Cita:
codigo tomado de ScriptMaster
Código PHP:
<%
' ** first, set the folder that we want to list
** this can also be a value passed from a form
dirname
="/users/kathi/asp/samples/tut/"
mypath "tut/"
Set fso CreateObject("Scripting.FileSystemObject")
Set folder fso.GetFolder(server.mappath(dirname))
Set filez folder.Files
FileCount 
folder.Files.Count
response
.write "<center><font size=1>There are "
response.write "<b><font size=2>"
response.write FileCount "</b></font>"
response.write " tutorials.</font></center><p>"
For Each listing in filez
    TotalChars 
len(listing.name)
    
Title left(listing.name,TotalChars 4)
    
Title replace(Title,"_"," ")
    
response.write "<A HREF='" mypath
    response
.write listing.name
    response
.write "' class=""menu"" target=""_new"">"
    
response.write Title
    response
.write "</A><br>"
Next
%> 
  #3 (permalink)  
Antiguo 25/04/2003, 17:56
 
Fecha de Ingreso: noviembre-2001
Ubicación: Montevideo
Mensajes: 506
Antigüedad: 22 años, 6 meses
Puntos: 0
Y eso funcionaría en ASP
__________________
Alvaro García
  #4 (permalink)  
Antiguo 25/04/2003, 18:55
Avatar de bakanzipp  
Fecha de Ingreso: noviembre-2001
Ubicación: santiago de shilli
Mensajes: 2.554
Antigüedad: 22 años, 7 meses
Puntos: 0
es codigo asp...

saca tus conclusiones
  #5 (permalink)  
Antiguo 25/04/2003, 22:20
 
Fecha de Ingreso: noviembre-2001
Ubicación: Montevideo
Mensajes: 506
Antigüedad: 22 años, 6 meses
Puntos: 0
la verdad es que pregunté antes de probar. Funcionó perfecto, muchas gracias. Me confundió que dijera PHP arriba del código.

saludos
__________________
Alvaro García
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 01:23.