
28/09/2005, 11:21
|
| | Fecha de Ingreso: septiembre-2005
Mensajes: 202
Antigüedad: 19 años, 7 meses Puntos: 0 | |
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.
¿¿¿...??? |