Napomena
Funkcija, metod, objekat ili svojstvo opisani u ovoj temi onemogućeni su ako je usluga Microsoft Jet Expression Service pokrenuta u režimu "sandbox", što sprečava procenu potencijalno nebezbednih izraza. Više informacija o režimu "sandbox" potražite u pomoći za "režim sandbox".
Daje ceo broj koji predstavlja atribute datoteke, direktorijuma ili fascikle.
Sintaksa
GetAttr(ime putanje)
Potreban argument pathnameje izraz niske koji navodi ime datoteke. Ime putanje može da sadrži direktorijum ili fasciklu, kao i disk jedinicu.
Povratne vrednosti
Vrednost koju daje funkcija GetAttr je zbir sledećih vrednosti atributa:
| konstanta | Vrednost | Opis |
|---|---|---|
| vbNormal | 0 | Normalno. |
| vbReadOnly | 1 | Samo za čitanje. |
| vbHidden | 2 | Skriveno. |
| vbSystem | 4 | Sistemska datoteka. Nije dostupno na Macintosh računarima. |
| vbDirectory | 16 | Direktorijum ili fascikla. |
| vbArhiva | 32 | Datoteka je promenjena od poslednje rezervne kopije. Nije dostupno na Macintosh računarima. |
| vbAlias | 64 | Navedeno ime datoteke je pseudonim. Dostupno samo na Macintosh računarima. |
Napomena
Ove konstante su navedene u programu Visual Basic for Applications. Imena se mogu koristiti bilo gde u kodu umesto stvarnih vrednosti.
Napomene
Napomena
Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.
Da biste odredili koji atributi su postavljeni, koristite operator And da biste izvršili poređenje na nivou bita vrednosti koju daje funkcija GetAttr i vrednosti pojedinačnog atributa datoteke koji želite. Ako rezultat nije nula, taj atribut se postavlja za imenovanu datoteku. Na primer, povratna vrednost sledećeg And izraza je nula ako atribut Arhiva nije postavljen:
Result = GetAttr(FName) And vbArchive
Ako se podesi atribut Arhiva, daje se vrednost koja nije nula.
Primer
Ovaj primer koristi funkciju GetAttr za određivanje atributa datoteke i direktorijuma ili fascikle. Na Macintosh računarima su dostupne 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.