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 )
Zahtevano ime potiargument je izraz niza, ki določa ime datoteke. Ime poti lahko vključuje 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.
Če želite določiti, kateri atributi so nastavljeni, z operatorjem And izvedite bitna primerjava vrednosti, ki jo vrne funkcija GetAttr , in vrednost želenega posameznega atributa datoteke. Če rezultat ni nič, je ta atribut nastavljen za imenovano datoteko. Vrnjena vrednost tega izraza And je na primer 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.