Utiliza la siguiente funcion
Sub Function Existe_Archivo(byval FileName as String) as boolean
on error goto Control_Error
nError=0
open FileName for input as #1
if nError=0 then
close(1)
Existe_Archivo=True
else
Existe_Archivo=False
endif
Exit sub
Control_Error:
nError=err.number
Resumen Next
End Function
