GetAttr функциясы

Ескерту : Егер Microsoft Jet Expression қауіптілігі ықтимал өрнектің есептелуіне жол бермейтін құмсалғыш режимінде іске қосылғанда, осы бөлімдегі функция, әдіс, нысан немесе сипат доғарылады. Құмсалғыш режимі туралы толық ақпарат алу үшін Анықтамадағы "құмсалғыш режимін" іздеңіз.

Файл төлсипаттарын, каталогты не қалтаны беретін Бүтін санды қайтарады.

Синтаксис

GetAttr(pathname)

Міндетті атау жолыныңаргумент файл атын көрсететінжол өрнегі. Атау жолы каталог не қалтаны және дискіенгізгі қосу мүмкін.

Мәндерді қайтарады

GetAttr қайтарылған мән келесі төлсипат мәндердің қосындысы болып табылады:

Тұрақты мән

Мән

Сипаттама

vbҚалыпты

0

Қалыпты.

vbТек оқуға арналған

1

Тек оқуға арналған

vbЖасырын

2

Жасырын

vbЖүйе

4

Жүйе файлы. Macintosh бағдарламасында қол жетерлік емес.

vbКаталог

16

Каталог немесе қалта.

vbМұрағат

32

Соңғы сақтық көшірмелеуден бері файл өзгерген. Macintosh бағдарламасында жоқ.

vbБүркеншік ат

64

Көрсетілген файл атауы бүркеншік ат болып табылады. Macintosh бағдарламасында бар.


Ескерту :  Visual Basic for Applications бағдарламасымен көрсетілген тұрақты мән. Атаулар нақты мәндер орнына сіздің кодыңыздың әр жерінде пайдалануға мүмкін.

Ескертпелер

Ескерту : Төмендегі үлгілер осы жетені Бағдарламаларға арналған Visual Basic (VBA) модулінде пайдаланылуын көрсетеді. VBA модулімен жұмыс істеу туралы көбірек ақпарат алу үшін, жайылмалы шаршыдағы Іздеу түймешігінің қасындағы Жасақтаушы сілтемелері түймешігін нұқып, іздеу жолағына бір немесе бірнеше шартты ендіріңіз.

Қандай төлсипаттар орнатылғанын анықтау үшін Және амалдағышын GetAttr функциясымен және қалаған жеке файл төлсипат мәнімен қайтарылған мәннің биттік салыстыру. Егер нәтиже нөл болмаса, сол төлсипат аталған файлға орнатылады. Мысалы, Егер мұрағат төлсипаты орнатылмаса келесі Және өрнек нөл болады:

Result = GetAttr(FName) And vbArchive

Егер Мұрағат төлсипаты орнатылса, нөл емес мән қайтарылады.

Мысал

Мына мысал GetAttr функциясын файл төлсипаттарын және каталог немесе қалтаны анықтау үшін пайдаланады. Macintosh бағдарламасында тек vbҚалыпты, vbТек оқуға арналған, vbЖасырын және vbБүркеншік ат бар.

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 Insider бағдарламасына қосылу

Осы ақпарат пайдалы болды ма?

Пікіріңіз үшін рақмет!

Пікіріңізге рақмет! Сізді Office қолдау көрсету қызметіндегі агенттердің бірімен байланыстырған жөн болуы мүмкін.

×