Простой способ узнать нужный атрибут файла

[AnGI_Burn]

Здравствуйте! Как можно простым способом узнать определённый атрибут файла (например Скрытый). Если использовать стандартную функцию GetAttr то количество вариаций атрибутов будет идти на десятки (например скрытый, скрытый + архивный + сжатый и т.д.). Может есть какой-то простой способ, может API какая-нибудь...

[Cytron]

GetAttr сойдет!
Вот, набросал тебе примерчик...

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


Dim FA As Integer ' Можно vbFileAttribute
Dim AHidden As Boolean, AReadOnly As Boolean, ASystem As Boolean, AArchive As Boolean
FA = GetAttr("Имя Файла")
AHidden = (FA And vbHidden) > 0
AReadOnly = (FA And vbReadOnly) > 0
ASystem = (FA And vbSystem) > 0
AArchive = (FA And vbArchive) > 0


Оператор And рулит!

[Хакер]

вместо > 0 юзаем CBool(). Или вообще ничего не юзаем.

[AnGI_Burn]

Cytron,
Во! Спасибо! То, что нужно!
З.Ы. Как чувствовал, что And где-то рядом...))

[Cytron]

Хакер
Я показал, чтобы он понял