Napomena
Funkcija, metoda, objekt ili svojstvo opisani u ovoj temi onemogućeni su ako je servis izraza Microsoft Jet pokrenut u načinu rada s memorijom za testiranje, što sprječava procjenu potencijalno nesigurnih izraza. Dodatne informacije o načinu rada s memorijom za testiranje potražite u pomoći "način rada s memorijom za testiranje".
Vraća cijeli broj koji predstavlja atribute datoteke, direktorija ili mape.
Sintaksa
GetAttr(nazivputa)
Obavezni argument pathnamejest izraz niza koji određuje naziv datoteke. Naziv puta može obuhvaćati direktorij ili mapu i pogon.
Vraćene vrijednosti
Vrijednost koju vraća GetAttr zbroj je sljedećih vrijednosti atributa:
| Konstanta | Vrijednost | Opis |
|---|---|---|
| vbNormal | 0 | Normalno. |
| vbReadOnly | 1 | Samo za čitanje. |
| vbHidden | 2 | Skriveno. |
| vbSystem | 4 | Sistemska datoteka. Nije dostupno na računalu Macintosh. |
| vbDirectory | 16 | Direktorij ili mapa. |
| vbArchive | 32 | Datoteka se promijenila od zadnje sigurnosne kopije. Nije dostupno na računalu Macintosh. |
| vbAlias | 64 | Određeni je naziv datoteke pseudonim. Dostupno samo na računalu Macintosh. |
Napomena
Te konstante navodi Visual Basic for Applications. Nazivi se mogu koristiti bilo gdje u kodu umjesto stvarnih vrijednosti.
Napomene
Napomena
Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.
Da biste odredili koji su atributi postavljeni, upotrijebite operator And za bitovnu usporedbu vrijednosti koju vrati funkcija GetAttr i vrijednosti pojedinog željenog atributa datoteke. Ako rezultat nije nula, taj se atribut postavlja za imenovanu datoteku. Na primjer, vraćena vrijednost sljedećeg izraza And jednaka je nuli ako atribut Arhiva nije postavljen:
Result = GetAttr(FName) And vbArchive
Ako je postavljen atribut Arhiva, vraća se vrijednost koja nije nula.
Primjer
U primjeru se koristi funkcija GetAttr za određivanje atributa datoteke i direktorija ili mape. Na računalu Macintosh dostupne su samo konstante vbNormal, vbReadOnly, vbHidden i 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.