io faccio sempre così:

codice:
Dim A

set a=createobject("Scripting.FileSystemObject")
if a.FileExists("C:\documento.txt")=True then
msgbox "Il file esiste.",,""
else
msgbox "Il file non esiste.",,""
end if
l'ho trovato sulla guida di access che ho usato per mesi aspettando MSDN