Забележка
Функцията, методът, обектът или свойството, описани в тази тема, са забранени, ако услугата за изрази Microsoft Jet се изпълнява в ограничителен режим, което пречи на изчисляването на потенциално опасни изрази. За повече информация относно ограничителния режим потърсете "ограничителен режим" в помощта.
Връща цяло число , представящо атрибутите на файл, указател или папка.
Синтаксис
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 изберете Справочни материали за разработчици в падащия списък до Търсене и въведете един или няколко термина в полето за търсене.
За да определите кои атрибути са зададени, използвайте оператора And , за да извършите побитово сравнение на стойността, върната от функцията GetAttr , и стойността на отделния файлов атрибут, който искате. Ако резултатът не е нула, този атрибут се задава за наименувания файл. Например върнатата стойност на следния израз And е нула, ако атрибутът Архив не е зададен:
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.