Problema con "Archivo no encontrado"

[omegafunky]

Hola amigos hando haciendo un gestor de archivos, los archivos se suben a una carpeta llamada "archivos" y se guarda el nombre de dicho archivo con todo y extension en la base de datos al igual que la persona que los subio, al momento de darle borrar, se borra el rehistro de la BD pero el archivo sige dentro de la carpeta y me marca el siguiente error:

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0035)
Archivo no encontrado
/it/subir_archivos.asp, línea 23

Código PHP:

  <%
'fechale = Day(Date) &"/"& Month(Date) &"/"& Year(Date)
'response.Write fechale
if request("id_archivo") <> "" then
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("base.mdb")
    
    SQL_ver = "SELECT * FROM archivos WHERE id_archivo = " &Request("id_archivo")
    Set rs_ver = conn.Execute(SQL_ver)
    if Not rs_ver.EOF then

    SQL_del_file = "DELETE FROM archivos WHERE id_archivo = " &Request("id_archivo")
    Set rs_del_file = conn.Execute(SQL_del_file)

    set fs = createobject("scripting.filesystemobject")
    fs.deletefile "archivos\"&rs_ver("nombre")&"", true    '-----LINEA 23
    
    Response.Redirect("subir_archivos.asp")
    end if
end if

%> 
   

[Shiryu_Libra]

aki radicaria el problema directamente en la forma de llamar el archivo virtualmente (server.mappath)

intenta antes de mandar el proceso de eliminacion, conocer que te esta buscando

'fs.deletefile , true <--- ' comilla simple al principio
archivo = "archivos\"&rs_ver("nombre")&""
response.write archivo &"<br/>"
response.end

algunas veces requieres anteponer "./" en el server.mappath en dado caso que lo estes haciendo virtualmente

recuerda las lineas de navegacion virtual
"../archivo" <--- regresa un nivel y despues entra a la carpeta "archivos"
"./archivo" <--- dentro del mismo nivel y busca la carpeta "archivos"

[omegafunky]

pues ya le puse lo que me dijiste y si imprime la ruta y esta, esta bien, mira mi asp esta en la raiz del wwwroot y luego esta la carpeta "archivos" podrias decirme entonces como seria ya para que lo elimine?

[AlZuwaga]

pues ya le puse lo que me dijiste y si imprime la ruta y esta, esta bien

Cuando decís que la ruta está bien... te referís a que devuelve algo así como:

Código:

X:\blablabla\blabla\wwwroot\archivos\archivo_a_borrar.ext

Recordá que debe salir la ruta ABSOLUTA, comenzando por el nombre de la unidad de disco.

Como dice Shiryu_Libra, tenés que usar server.mappath. Probá así:

Código:

fs.deletefile(Server.MapPath("\archivos\" & rs_ver("nombre")), true)

[omegafunky]

la ruta que me sale es "archivos\fichero.txt" ahorita pruebo la opcion que me diste saludos grax Al Zuwaga

EDITO:acabo de probar lo que me diste Al Zuwaga y me dio un error, me dice:


Tipo de error:
Error de compilación de Microsoft VBScript (0x800A0414)
No se puede utilizar paréntesis al llamar a Sub
/it/subir_archivos.asp, línea 22, columna 68
fs.deletefile(Server.MapPath("\archivos\" & rs_ver("nombre")), true)
-------------------------------------------------------------------^

[u_goldman]

Hay de dos:

call fs.deletefile(Server.MapPath("\archivos\" & rs_ver("nombre")), true)

o

fs.deletefile Server.MapPath("\archivos\" & rs_ver("nombre")), true

Saludos

[AlZuwaga]

Pues... intentá así:

Código:

fs.deletefile Server.MapPath("\archivos\" & rs_ver("nombre"), true

Edit: me demoré y me ganó el master tigurón :)

[omegafunky]

bueno amigos ya lo modifique y ya al fin quedo, muchas gracias por su ayuda Shiryu_Libra, u_goldman y Al Zuwaga =D

set fs = createobject("scripting.filesystemobject")
fs.deletefile Server.MapPath("archivos\" & rs_ver("nombre")), true