comprobar y eliminar varios archivos del servidor con fso

[potenkin]

hola,
tengo un problema con "eliminar archivos" mediante fso

quiero que se compruebe si existen 2 archivos en el servidor y si es así que los elimine. La ruta de los archivos se la doy con la dirección + un recordset que recoge de un formulario.

El problema es que si elimino la funcion "fileexist" funciona correctamente y elimina los dos archivos (siempre que existan, sinó da error), pero si intento comprobar si existen no me funciona.

este es el codigo:
--------------------------------------------------------
<%
Function BorrarArchivo(archivo)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

archivocast = "D:\XVRT\dominio.com\Html\pdfs\" & (Recordset1.Fields.Item("pdf").Value)
archivoeng = "D:\XVRT\dominio.com\Html\pdfs\" & (Recordset1.Fields.Item("pdf_english").Value)

if fso.FileExists(archivocast) then fso.DeleteFile(archivocast)
if fso.FileExists(archivoeng) then fso.DeleteFile(archivoeng)
Set fso = Nothing
End function
%>
--------------------------------------------------------

alguien podria ayudarme e indicarme el error.

gracias por adelantado

Alf

[AlZuwaga]

Mmm... lo de que si le quitás el "FileExists" y si funciona, no le veo el sentido.
Igual, no entiendo ¿por qué usás una función si no estás devolviendo valores?
¿En este caso no convendría un SUB?
Además, ¿para qué le pasás un parámetro "archivo" si nunca lo usás?

Yo lo dejaría así:

Código:

<%
SUB BorrarArchivo(cast, eng)
	Dim fso, ruta
	ruta = "D:\XVRT\dominio.com\Html\pdfs\"

	Set fso = Server.CreateObject("Scripting.FileSystemObject")
		archivocast = ruta & cast
		archivoeng = ruta & eng
		if fso.FileExists(archivocast) then fso.DeleteFile(archivocast)
		if fso.FileExists(archivoeng) then fso.DeleteFile(archivoeng)
	Set fso = Nothing
End SUB

Call BorrarArchivo(Recordset1.Fields.Item("pdf").Value, Recordset1.Fields.Item("pdf_english").Value)
%>

(igual revisalo bien porque me pude haber confundido ya que no lo puse en ejecusión)

[potenkin]

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.

¿¿¿...???

[potenkin]

hola,
gracias por contestar, lo he probado y no funciona ¿¿??

alguna idea

[potenkin]

mil perdones, si funciona!!!!!

pero..., porque no funciona el otro codigo

un saludo