![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
09/02/2005, 08:11
|
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Ú |