Foros del Web » Programando para Internet » ASP Clásico »

borrar documentos anexos

Estas en el tema de borrar documentos anexos en el foro de ASP Clásico en Foros del Web. Buenas tardes, yo de nuevo, estoy que casi no veo, no se que está mal de verdad, estoy a punto de hecharle la culpa a ...
  #1 (permalink)  
Antiguo 06/05/2009, 09:50
Avatar de Cameron_2006  
Fecha de Ingreso: diciembre-2006
Mensajes: 248
Antigüedad: 18 años, 4 meses
Puntos: 0
borrar documentos anexos

Buenas tardes, yo de nuevo, estoy que casi no veo, no se que está mal de verdad, estoy a punto de hecharle la culpa a la base de datos, pero resulta que cuando ingreso un nuevo archivo a la carpeta lo hace perfectamente, cosa que me hace dar un paso atrás en mi acusación :-| , pero he copiado y recopiado el código, hasta cambié los nombres y sigue sin borrar el archivo de la carpeta donde está alojado.
Si borra el registro de la base de datos, pero no lo elimina de la carpeta.

El código que estoy usando es este y gracias de antemano por la ayuda :

<%
idf = Request( "idf" )

Dim SQL
Dim cod_anexo

dim fs,rs1,archivo
Set fs = Server.CreateObject("Scripting.FileSystemObject")
for each cod_anexo IN Request.Form("Borrar")

'En este caso como están relacionadas, primero se borran los archivos de la tabla hija
'y luego las de la tabla padre
'Como existen archivos fisicos, primero se eliminan los archivos de la carpeta
'y luego se elimina el registro de la tabla

sql="select txt_filename from m_anexosformacion where cod_anexo="& cod_anexo
set rs1=conexion.execute(sql)
do while not rs1.eof
archivo="../../../documentos/formacion/"& rs1.fields("txt_filename")
archivo="C:\Inetpub\vhosts\dominio.com\httpdocs\do cumentos\formacion\"&(archivo)
if fs.FileExists(archivo) then fs.DeleteFile(archivo)
rs1.movenext
loop

'ahora se se elimina el registro de la imagen de la tabla hija
sql="delete from m_anexosformacion where cod_anexo="&cod_anexo
conexion.execute SQL

NEXT

Set fs = Nothing

conexion.close
set conexion=Nothing
Response.Redirect(Request.ServerVariables("HTTP_RE FERER"))

%>
  #2 (permalink)  
Antiguo 06/05/2009, 09:59
Avatar de JuanRAPerez
Colaborador
 
Fecha de Ingreso: octubre-2003
Mensajes: 2.393
Antigüedad: 21 años, 6 meses
Puntos: 27
Respuesta: borrar documentos anexos

te marca algun error????

fs.DeleteFile(archivo)

te marca algo?????
__________________
JuanRa Pérez
San Salvador, El Salvador
  #3 (permalink)  
Antiguo 06/05/2009, 10:12
Avatar de Myakire
Colaborador
 
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 23 años, 3 meses
Puntos: 146
Respuesta: borrar documentos anexos

Verifca en que verdad entra al if ...

Cita:
archivo="C:\Inetpub\vhosts\dominio.com\httpdocs\do cumentos\formacion\"&(archivo)
if fs.FileExists(archivo) then
fs.DeleteFile(archivo)
response.write "Archivo eliminado: " & archivo
End If
Esta medio extraña esa asignación a la variable archivo ....
  #4 (permalink)  
Antiguo 06/05/2009, 10:37
Avatar de Cameron_2006  
Fecha de Ingreso: diciembre-2006
Mensajes: 248
Antigüedad: 18 años, 4 meses
Puntos: 0
Respuesta: borrar documentos anexos

No JuanRa no marca ningún error por otro lado, Myakire creo que lo dices por esto:
"do cumentos"
en mi código está bien, fue cuando lo puse en el foro que se separó y no se por qué
  #5 (permalink)  
Antiguo 06/05/2009, 10:46
Avatar de JuanRAPerez
Colaborador
 
Fecha de Ingreso: octubre-2003
Mensajes: 2.393
Antigüedad: 21 años, 6 meses
Puntos: 27
Respuesta: borrar documentos anexos

ummm creo que a lo que el maestro Myakire se refiere es a esto

Código asp:
Ver original
  1. archivo="../../../documentos/formacion/"& rs1.fields("txt_filename")
  2. archivo="C:\Inetpub\vhosts\dominio.com\httpdocs\do cumentos\formacion\"&(archivo)
  3. response.write archivo
  4. response.end

imprime esa variable y cuéntanos que trae
__________________
JuanRa Pérez
San Salvador, El Salvador
  #6 (permalink)  
Antiguo 06/05/2009, 10:46
Avatar de Cameron_2006  
Fecha de Ingreso: diciembre-2006
Mensajes: 248
Antigüedad: 18 años, 4 meses
Puntos: 0
Respuesta: borrar documentos anexos

La tabla m_anexosfoamcion:

cod_anexo (INT)
cod_formacion (INT)
txt_filename (varchar)
...

EDIT

C:\Inetpub\vhosts\dominio.com\httpdocs\documentos\ formacion\../../../documentos/formacion/promociones_web_julian(9).pdf

EDIT
el mismo código lo estoy usando para otra tabla y lo más increible es que funciona

EDIT

voy a probar a direccionar ese archivo a la carpeta donde funciona todo perfectamente para ver que pasa, les informo. y mil gracias

EDIT
funciona voy a borrar esa carpera y crear otra, al mismo nivel que la que funciona para ver, ya regreso

Última edición por Myakire; 06/05/2009 a las 11:43
  #7 (permalink)  
Antiguo 06/05/2009, 11:19
Avatar de Cameron_2006  
Fecha de Ingreso: diciembre-2006
Mensajes: 248
Antigüedad: 18 años, 4 meses
Puntos: 0
Respuesta: borrar documentos anexos

amigos, era la carpeta, mil gracias de verdad.

La borré y cree una nueva en el mismo nivel y funcionó, que extraño, podía meter los archivos pero no los podía borrar.

Un saludo
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 14:26.