Applies ToAccess за Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Забележка: Функцията, методът, обектът или свойството, описани в тази тема, се забраняват, ако услугата 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.

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

Искате ли още опции?

Разгледайте ползите от абонамента, прегледайте курсовете за обучение, научете как да защитите устройството си и още.

Общностите ви помагат да задавате и отговаряте на въпроси, да давате обратна връзка и да получавате информация от експерти с богати знания.