Ver Mensaje Individual
  #3 (permalink)  
Antiguo 28/09/2005, 11:21
potenkin
 
Fecha de Ingreso: septiembre-2005
Mensajes: 202
Antigüedad: 19 años, 7 meses
Puntos: 0
Sonrisa hola de nuevo

hola,
antes que nada, gracias por contestar, llevo con el tema 2 dias y no hay manera...

si pongo el siguiente codigo (es diferente que el anterior) funciona correctamente, elimina los archivos (siempre que estos existan previamente)

<%
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
camino = "D:\XVRT\dominio.com\Html\pdfs\"
fso.DeleteFile( camino & (Recordset1.Fields.Item("pdf").Value))
fso.DeleteFile( camino & (Recordset1.Fields.Item("pdf_english").Value))
%>

el problema es que si uno de los 2 archivos que quiero eliminar "pdf" o "pdf_english" no esta subido al servidor o hay alguna inexactitud en el nombre, entonces da error. He intentado añadirle el "FileExist" para comprobar que existe, de la siguiente forma:

<%
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
camino = "D:\XVRT\dominio.com\Html\pdfs\"
If fso.FileExists(camino & (Recordset1.Fields.Item("pdf").Value))
Then fso.DeleteFile( camino & (Recordset1.Fields.Item("pdf").Value))
If fso.FileExists(camino & (Recordset1.Fields.Item("pdf_english").Value))
Then fso.DeleteFile( camino & (Recordset1.Fields.Item("pdf_english").Value))
%>

y asi no funciona. No da error pero no elimina los archivos del servidor.

¿¿¿...???