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

