Borrar imagenes con filesystemobject

[tavitooo]

Amigos tengo un problema super RARISIMO!!.

Tengo un modulo administrador en la cual uso el xelupload subo imagenes a un directorio images todo bien. Pero al momento de listar mis imagenes osea las imagenes que ya tenia en mi servidor les he agregado un link borrar le doy click ahi y me sale pagina no encontrada y sale error pero si subo una imagen y donde me lista le doy borrar esta si me lista!!!. mi pregunta es porque no borra lo que ya esta en el servidor y si me borra lo que acabo de subir?. Si me voy al FTP si lo borra. ES EXTRAÑO!!!!. que solucion del caso puedo dar?.

este es mi archivo upload.asp que si funciona el borrar cuando subo ahora pero de lo que listo no los borra....

<!--#include file="xelupload.asp"-->
<%
Dim up, fich
set up = new xelUpload
up.Upload()

Response.Flush
For each fich in up.Ficheros.Items
Response.Write("<ul>")
Response.Write("<li>Name: <b>" & fich.Nombre & "</b></li>")
Response.Write("<li>Size: <b>" & fich.Tamano & "</b> bytes (" & FormatNumber(fich.Tamano / (1024*1024)) & " Mb)</li>")
Response.Write("<li>Type MIME: <b>" & fich.TipoContenido & "</b></li>")
Response.Write("</ul>")

fich.Guardar Server.MapPath("/docs/")
Next
'Limpiamos objeto
set up = nothing
%>
<p>
<a href="admin_files.asp">Back</a>

[rcalle66]

que error te muestra al intentar borrarlo?

[Adler]

Prueba a eliminarlo así

Private Function EliminarArchivo(byval archivo)
Dim fs
Set fs= CreateObject("Scripting.FileSystemObject")
if not fs.fileExists(archivo) then Exit Function
fs.DeleteFile(archivo)
End Function


Call EliminarArchivo(Server.MapPath("./"&rs.Fields("archivo_a_eliminar")&""))

Suerte