Использование ф-и Getattr

[Random]

В общем, как-то раз написал программку.
Так вот, в ней использовал ,- среди прочих, - фунkцию Getattr в строке кода вида:

Код: Выделить всё

If Gettatr(X) = vbDirectory Then

.....
Не секрет, что константа VbDirectory = 16. Но каково было мое недоумение, когда это простое правило не сработало. программа споткнулась о директорию, атрибут которой был равен 48(!). Констант идентичных этому я не нашел. Подскажите, плз, с чем же я столкнулся?
ЗЫ: LetAttr на директорию не распростроняется! (или да? )

[tyomitch]

LetAttr нет в природе.
а 48 -- это vbDirectory Or vbArchive

[Random]

Биг спасибо за разъяснение.
Вот только не могу понять, существует ли болеее надежный способ отделения мух от котлет? Или пойти наиболее очевидным путем и перечислить в коде все возможные сочетания атрибутов? Ну и каша получится...

[Хакер]

Нет. Следует проверять установленность флага оператором And.

Т.е.

If zazaza And vbDirectory Then MsgBox "Это директория"
MsgBox "Атрибут <Архивный> в"+iif(zazaza And vbArchive, "", "ы")+"ключен."