"Chip Pearson" wrote:

Use the Dir function.

If Dir(vPath & vFile) < "" Then
' file exists
Else
' file does not exist
End If


--
Cordially,
Chip Pearson

Thanks Chip ~ a much better solution than my rather clunky. I'll use your
version.
Paul

With Application.FileSearch
.NewSearch
.LookIn = vPath
.SearchSubFolders = False
.FileName = vFile
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles

FileFound = (.Execute() 0) 'True if found, false if not.
End With