GetAttr funkcija

Svarbu :  Šis straipsnis išverstas naudojant mašininį vertimą, žr. atsakomybės atsisakymą. Su šio straipsnio versija anglų kalba galite susipažinti čia .

Pastaba : Funkcija, metodą, objektų ir ypatybių šioje temoje aprašyta yra išjungta, jei Microsoft Jet išraiškų tarnyba veikia smėlio dėžės režimą, kuris apsaugo nuo galimai nesaugių reiškinių vertinimą. Daugiau informacijos apie smėlio dėžės režimą, ieškokite "smėlio dėžės režimo" žinyne.

Grąžina sveikasis skaičius , reiškiantis failo, katalogo arba aplanko atributus.

Sintaksė

GetAttr ( kelias )

Būtinas keliasargumentas yra eilutės išraiška , kuri nurodo failo vardą. Maršruto vardas gali būti katalogo arba aplanko ir diską.

Grąžina reikšmę

Reikšmė, grąžinta GetAttr yra šių atributų reikšmių sumą:

Konstanta

Reikšmė

Aprašas

vbNormal

0

Įprastas.

vbReadOnly

1

Tik skaityti.

vbHidden

2

Paslėpti.

vbSystem

4

Sistemos failas. Nėra Macintosh kompiuteryje.

vbDirectory

16

Katalogo arba aplanko.

vbArchive

32

Failas buvo pakeistas po paskutinio atsarginio kopijavimo. Nėra Macintosh kompiuteryje.

vbAlias

64

Nurodyto failo vardas yra pseudonimą. Galimas tik Macintosh.


Pastaba : Visual Basic for Applications nustato šias konstantas. Galima naudoti bet vardus savo kodą vietoj tikrų reikšmių.

Pastabos

Pastaba : Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.

Norėdami nustatyti, nustatomos atributus, naudokite ir operatorių lyginimas pabičiui , ir reikšmė, grąžinta GetAttr funkciją ir vieno failo atributo, kurį norite atlikti. Jei rezultatas yra nulis, kad atributas, pavadintas failą. Pvz., reikšmę ir šį reiškinį yra nulis Archyvas atributas nustatytas:

Result = GetAttr(FName) And vbArchive

Parametro reikšmė grąžinama jei archyvo atributas.

Pavyzdys

Šiame pavyzdyje naudojama funkcija GetAttr nustatyti failo ir katalogo arba aplanko atributus. "Macintosh", tik konstantas vbNormal, vbReadOnly, vbHidden ir vbAlias yra galimi.

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.

Pastaba : Mašininio vertimo atsakomybės atsisakymas: Šis straipsnis išverstas naudojant kompiuterinę sistemą be žmogaus įsikišimo. „Microsoft“ pateikia šiuos mašininius vertimus norėdama padėti anglų kalbos nesuprantantiems vartotojams perskaityti turinį apie „Microsoft“ produktus, paslaugas ir technologijas. Šis straipsnis išverstas mašininio vertimo būdu, todėl jame gali būti žodyno, sintaksės ar gramatikos klaidų.

Tobulinkite savo įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijunkite prie „Office Insider“ dalyvių

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimus!

Dėkojame už jūsų atsiliepimą! Panašu, kad gali būti naudinga jus sujungti su vienu iš mūsų „Office“ palaikymo agentų.

×