Código:
Lo que hace es comprobar los nombre de las imagenes de la base de datos en las carpetas qe se hayan creado en la carpeta imagenes. E hecho un response.write y la ruta que me muestra es la correcta, pero no se por que motivo me dice que la imagen no existe en la ruta especificada?????<%do until RSimp.eof%> <% Path = request("Path") if Path <> "" then Ruta = Path&"/" else Ruta = "imagenes/" end if Set FSO = CreateObject("Scripting.FileSystemObject") Set Carpeta = FSO.GetFolder(Server.MapPath(Ruta)) Set Subcarpetas = Carpeta.SubFolders For Each SubCarpeta in Subcarpetas SubCNombre = Subcarpeta.Name 'response.write SubCNombre&"<br>" %> <% Set filesys = Server.CreateObject("Scripting.FileSystemObject") 'response.write trim(replace(server.MapPath("imagenes/"&SubCNombre&"/"&imagen)," ","%20")) 'response.write "<b>---"&filesys.FileExists(trim(replace(server.MapPath("imagenes/"&SubCNombre&"/"&imagen)," ","%20")))&"----</b>" If filesys.FileExists(trim(replace(server.MapPath("imagenes/"&SubCNombre&"/"&imagen)," ","%20"))) Then Response.Write(" La imagen existe<br>") Else Response.Write(" La imagen no existe<br>") End if Next %> <%RSimp.MoveNext loop%>
Alguien sabe a que puede ser debido?
Un saludo