Win10 + Off10
Проверка существования файла "C:\Base\Журналы\Ошибки_заполнения.txt" для лога.
Пробую давно описанную конструкцию If ((GetAttr(filePath) And VBA.vbDirectory) = VBA.vbDirectory) = True с On Error GoTo
Может не быть самого файла и папки Журналы. Нет папки(ош.53) - MkDir, не файла (ош.76)- создаём файл.
Проверяю. Удалён файл -
GetAttr("C:\Base\Журналы") =16 (vbDirectory)
GetAttr( "C:\Base\Журналы\Ошибки_заполнения.txt") - Ош.53 FileNot Found

Удаляем Журналы
GetAttr("C:\Base\Журналы") - Ош.53 FileNot Found
GetAttr( "C:\Base\Журналы\Ошибки_заполнения.txt") - Ош.76 Path Not Found
Если последний вывод понятен - нет папки, зачем искать файл, то предпоследний вывод не понятен. Вроде тоже должна быть ош.76?

court, Ok, вопрос не в реализации, в блогах с десяток способов. Меня ответ удивил. Я кажется писал в тему "Интересные факты.." или как-то похоже. Почему разный результат вывода? Или это, как всегда, "недокументированные..." или у меня соображалка не того.

ОК, согласен,"C:\Base\Журналы" может и файл без расширения
А тогда "C:\Base\Журналы\Ошибки_заполнения.txt" согласно 4 вывода - с кого переляку каталог с расширением.
Кстати, зачем я полез в GetAttr - Случайно в коде подсунул MkDir(str), где str оказалось "C:\Base\Журналы\Ошибки_заполнения.txt"
Ну и получил каталог с расширением.

sdku, я вроде этим методом и не собирался файлы создавать
Способ
Function FolderExists(strPath As String) As Boolean
On Error Resume Next
FolderExists = ((GetAttr(strPath) And vbDirectory) = vbDirectory)
End Function

описан 10 Exp 10 раз ещё хрен знает когда, по ошибке выдаёт False, а какая там ошибка - функцию не интересует.
Ясно, что невозможно получит атрибуты того, чего нет, невозможно, просто логично было на вопрос о файле ответить -"Файла Нет", а про папку -"Папки нет".
А то стебаться сразу...

sdku, подумал, осознал, сделал выводы. GetAttr стояло перед запись лога. Всё прекрасно работало с отсутствием файла(нет файла -ошибка-обработчик-создали-вернулись), пока для эксперимента не удалил директорию. Выкинул предпроверку - нет смысла дёргать её перед каждой записью - удаление файла, а тем более папки маловероятно, а в обработчик ошибок запускать конструкцию, которая опять генерирует практически ту же ошибку - хрень, атрибуты меня не интересуют. Ну, а настал полный Err - через Dir можно хоть до С: проверять. Что выдаёт GetAttr больше исследовать не буду!