Аргументы: strName - полный путь к требуемому файлу.
Назначение: Проверка существования файла по указанному пути.
Возвращает: true - существует
Public Function CheckFile(strName As String) As Boolean
Dim strTemp As String
On Error Resume Next
strTemp = Dir(strName,vbHidden Or vbSystem Or vbArchive Or vbReadOnly)
CheckFile = ((Len(strTemp)>0) And (Err.Number = 0))
Err.Clear
End Function
Ссылки по теме