potresti usare la funzione dir(percorso)
se la stringa restituita è "" allora non esiste altrimenti il file esiste
Dim DummyFile As String
On Error Resume Next
FileEsistente = False
DummyFile = Dir(NomeFile, vbHidden)
If (Len(DummyFile) > 0) And (Err = 0) Then
FileEsistente = True
End If
End Function
se passi vbhidden alla funzione ti cerca anche i file nascosti