Funkcija GetAttr

Opomba: V tej temi opisana funkcija, metoda, predmet ali lastnost, je onemogočena, če se izvaja storitev Microsoft Jet Expression Service v načinu peskovnika, ki preprečuje vrednotenje morebitno nevarnih izrazov. Za več informacij o načinu peskovnika poiščite »način peskovnika« v pomoči.

Vrne celo število, ki predstavlja atribute datoteke, imenika ali mape.

Sintaksa

GetAttr ( ime poti )

Obvezni argument ime poti izraz niza, ki določa ime datoteke. Ime poti lahko vsebuje imenik ali mapo in pogon.

Vrednosti vrnitve

Vrednost, ki jo vrne funkcija GetAttr je vsota teh vrednosti atributov:

Konstanta

Vrednost

Opis

vbNormal

0

Navadno.

vbReadOnly

1

Samo za branje.

vbHidden

2

Skrito.

vbSystem

4

Sistemska datoteka. Ni na voljo v računalniku Macintosh.

vbDirectory

16

Imenik ali mapa.

vbArchive

32

Datoteka se je spremenila od zadnjega varnostnega kopiranja. Ni na voljo v računalniku Macintosh.

vbAlias

64

Določeno ime datoteke je vzdevek. Na voljo samo v računalniku Macintosh.


Opomba: Te konstante so navedene s programom Visual Basic for Applications. Imena lahko uporabite kjer koli v kodi na mestu dejanskih vrednosti.

Opombe

Opomba: V spodnjih primerih je prikazana uporaba te funkcije v modulu Visual Basic for Applications (VBA). Če želite več informacij o delu z modulom VBA, izberite Vsebina za razvijalce na spustnem seznamu ob možnosti Iskanje in v iskalno polje vnesite enega ali več izrazov.

Za določanje, kateri atributi so nastavljeni, uporabite operator And za izvajanje bitne primerjave vrednosti, ki jo je vrnila funkcija GetAttr in vrednost posamičnega želenega atributa datoteke. Če rezultat ni nič, je ta atribut nastavljen za imenovano datoteko. Na primer, vrnjena vrednost tega izraza And bo nič, če atribut Arhiv ni nastavljen:

Result = GetAttr(FName) And vbArchive

Neničelna vrednost bo vrnjena, če je atribut Arhiv nastavljen.

Primer

V tem primer se funkcija GetAttr uporablja za določanje atributov datoteke in imenika ali mape. V računalniku Macintosh so na voljo samo konstante vbNormal, vbReadOnly, vbHidden in 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.
Razširite svoja znanja
Oglejte si izobraževanje
Prvi dobite nove funkcije
Pridružite se programu Office Insider

Vam je bila informacija v pomoč?

Zahvaljujemo se vam za povratne informacije.

Zahvaljujemo se vam za povratne informacije. Videti je, da bi vam prišla prav pomoč enega od naših Officeovih agentov za podporo.

×