Атрибуты файлов

[Replicant]

Доброго времени суток!
Работаю с файлами/папками и обнаружил, что delphi не всегда распознает папки как папки, начал копать, оказалось, что проверка атрибута методом:

if SearchRec.Attr <> faDirectory then begin
...
end;

не дает достоверного результата, все равно проскакивают некоторые папки. Вытянул индекс атрибута проскочивших папок, равен он 48, знаю, что есть такие индексы:

faReadOnly : 1 : Файл только для чтения
faHidden : 2 : Скрытый файл
faSysFile : 4 : Системный файл
faVolumeID : 8 : Файл идентификатора объёма
faDirectory : 16 : Файл директории
faArchive : 32 : Архивный файл
faSymLink : 64 : Ярлык

а вот, что такое 48 мне не ясно. Что это такое?

[Serge_Bliznykov]

файл или папка может иметь НЕСКОЛЬКО аттрибутов одновременно
например, системный, скрытый, папка и т.д.

поэтому так НЕЛЬЗЯ проверять.

if SearchRec.Attr <> faDirectory then begin

надо так:

if (SearchRec.Attr and faDirectory)  <> faDirectory then begin

[evg_m]

а вот, что такое 48 мне не ясно. Что это такое?

48 =32 + 16
faDirectory : 16 : Файл директории
faArchive : 32 : Архивный файл (объект подлежащий архивации)
а еще может быть и
49 =32 +16 +1
17 =16 +1

[Replicant]

Спасибо!