Функция GetAttr

Важно : Тази статия е преведена машинно – вижте отказа от отговорност. Английската версия на тази статия за справка можете да намерите тук .

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

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

Синтаксис

GetAttr () път )

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

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

Стойността, върната от 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 изберете Справочни материали за разработчици в падащия списък до Търсене и въведете един или няколко термина в полето за търсене.

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

Забележка : Отказ от отговорност за машинен превод: Тази статия е преведена от компютърна система без човешка намеса. Microsoft предлага тези машинни преводи, за да помогне на потребителите, които не говорят английски, да се възползват от съдържанието за продукти, услуги и технологии на Microsoft. Тъй като статията е преведена машинно, е възможно да съдържа грешки в речника, синтаксиса и граматиката.

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

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

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

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

×