Функция GetAttr

Забележка: Функцията, методът, обекта или свойството, описани в тази тема, е забранена, ако услугата Microsoft Jet Expression се изпълнява в ограничителен режим, което не позволява оценка на потенциално опасни изрази. За повече информация относно режима на таксуване, потърсете "режим на таксуване" в "Помощ".

Връща цяло число , представляващо атрибутите на файл, директория или папка.

Синтаксис

GetAttr ( име на _ на _ _ )

Изискваното име на аргумент за имена е низов израз, което указва името на файла. Име на _ на _ път може да включва директорията или папката и устройството.

Връщащи се стойности

Стойността, върната от GetAttr , е сумата от стойностите по-долу:

Константа

Стойност

Описание

vbNormal

0

Нормално.

vbReadOnly

1

"Само за четене".

vbHidden

2

Скрити.

vbSystem

4

Системен файл. Не е налично на Macintosh.

vbDirectory

16

Директория или папка.

vbArchive

32

Файлът е променен след последното архивиране. Не е налично на Macintosh.

vbAlias

64

Зададеното име на файл е псевдоним. Предлага се само на Macintosh.


Забележка: Тези константи се задават от Visual Basic for Applications. Имената могат да бъдат използвани навсякъде във вашия код вместо действителните стойности.

Забележки

Забележка: Примерите по-долу илюстрират използването на тази функция във Visual Basic for Applications (VBA). За повече информация относно работата с VBA изберете Справочни материали за разработчици в падащия списък до Търсене и въведете един или няколко термина в полето за търсене.

За да определите кои атрибути са зададени, използвайте оператора и , за да извършите побитово сравняване на стойността, върната от функцията GetAttr , и стойността на отделния атрибут на файла, който искате. Ако резултатът не е нула, този атрибут е зададен за наименувания файл. Например върнатата стойност на следното и изразът е нула, ако Атрибутът за архивиране не е зададен:

Result = GetAttr(FName) And vbArchive

Връща се ненулева стойност, ако Атрибутът за архивиране е зададен.

Пример

Този пример използва функцията GetAttr , за да определи атрибутите на файла и директорията или папката. На Macintosh ще бъдат налични само константите vbNormal, vbReadOnly, vbHidden и vbAlias.

Dim MyAttr
' Assume file TESTFILE has hidden attribute set.
MyAttr = GetAttr("TESTFILE") ' Returns 2.
' Returns nonzero if hidden attribute is
' set on TESTFILE.
Debug.Print MyAttr And vbHidden
' Assume file TESTFILE has hidden and
' read-only attributes set.
MyAttr = GetAttr("TESTFILE") ' Returns 3.
' Returns nonzero if hidden attribute is
' set on TESTFILE.
Debug.Print MyAttr And (vbHidden + vbReadOnly)
' Assume MYDIR is a directory or folder.
MyAttr = GetAttr("MYDIR") ' Returns 16.

Нуждаете се от още помощ?

Разширете уменията си в Office
Преглед на обучението
Получавайте първи новите функции
Присъединете се към участниците в Office Insider

Беше ли полезна тази информация?

Благодарим ви за обратната връзка!

Благодарим ви за вашата обратна връзка. Изглежда, че ще бъде полезно да ви свържем с един от нашите агенти по поддръжката на Office.

×