Функция проверки на наличие файла по указанному пути

Аргументы: 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