ник: час
Public Function CheckFile(strName As String) As Boolean
'Функция проверки на наличие файла по указанному пути
'
'Аргументы: strName - полный путь к требуемому файлу.
'Назначение: Проверка существования файла по указанному пути.
'Возвращает: true - существует
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
ни одна не работает 