Проверка папки на существование формулой в Excel

Описание функции

Формула =ПАПКАСУЩ(ПУТЬ) возвращает ИСТИНА или ЛОЖЬ в зависимости от существования папки по указанному пути. Функция имеет только один аргумент:

• ПУТЬ - полный путь к папке, существование которой необходимо проверить

Пример

Пример проверки наличия папки по заданному пути

Код на VBA

Function ПАПКАСУЩ(ПУТЬ As String) As Boolean
   If Dir(ПУТЬ, vbDirectory) = "" Then
       ПАПКАСУЩ = False
   Else
       ПАПКАСУЩ = (GetAttr(ПУТЬ) And vbDirectory) = vbDirectory
   End If
End Function