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)