Забележка: Функцията, методът, обектът или свойството, описани в тази тема, се забраняват, ако услугата microsoft Jet Expression се изпълнява в ограничителен режим, което предотвратява оценяването на потенциално опасни изрази. За повече информация относно ограничителния режим потърсете "ограничителен режим" в помощта.
Връща стойност от тип Integer , представляваща атрибутите на файл, директория или папка.
Синтаксис
GetAttr ( pathname )
Задължителното име на пътаргумент е низов израз, който задава име на файл. Името на пътя може да включва указателя или папката и устройството.
Върнати стойности
Стойността, върната от GetAttr , е сумата от следните стойности на атрибути:
Константа |
Value |
Описание |
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 е нула, ако атрибутът Archive не е зададен:
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.