Ver Mensaje Individual
  #55 (permalink)  
Antiguo 09/02/2005, 08:11
cmezauni
Usuario no validado
 
Fecha de Ingreso: agosto-2003
Ubicación: Lima
Mensajes: 50
Antigüedad: 21 años, 6 meses
Puntos: 0
SJAM 7:

Tu codigo es correcto.

Set ObjetoFSO = Server.CreateObject("Scripting.FileSystemObject")

carpeta=request.QueryString("carpeta")
if carpeta<>"" then
carpeta=carpeta&"/"
folder="galeria/"&carpeta
else
folder="galeria/"
end if

'nos selecciona la carpeta en la que esta el archivo

Set ObjetoCarpeta = ObjetoFSO.GetFolder(Server.MapPath(folder))

'Nos muestra el nombre de nuestra carpeta en la web devuelta
Response.Write "<B>" & UCASE(ObjetoCarpeta.Name) & "</B>:<BR>"

'busca en todos los archivos que encuentra en dicha carpeta
For Each Fichero in ObjetoCarpeta.Files

Response.Write "<td><a href="&folder&Fichero.Name&"><img src="&folder&Fichero.Name & " width=60px height=50px></a></td>"
Response.Write "<tr><td><a href="&folder&Fichero.Name&"><img src="&folder&Fichero.Name & " width=60px height=50px></a></td>"

Next

Set Fichero = Nothing
Set ObjetoCarpeta = Nothing
Set ObjetoFSO = Nothing

Lo que me interesa saber es, como saber si del directorio está vacío, no contiene ningún archivo?

En tu ejemplo, no mostraría nada. Y debería mostrar aunque sea un texto que diga que no hay archivos en dicha carpeta.

Como se puede hacer eso?

Saludos

CHRISTIAN MEZA VILLAFUERTE
LIMA PERÚ