Napomena: Funkcija, metod, objekat ili svojstvo opisano u ovoj temi onemogućena je ako je usluga Microsoft Jet Expression pokrenuta u režimu sandbox, što sprečava procenu potencijalno nebezbednih izraza. Više informacija o režimu "sandbox" potražite u odeljku "režim sandbox" u pomoći.
Vraća ceo broj koji predstavlja atribute datoteke, direktorijuma ili fascikle.
Sintaksa
GetAttr (ime putanje )
Potrebno ime putanjeargument je izraz niske koja navodi ime datoteke. Ime putanje može da sadrži direktorijum ili fasciklu, kao i disk jedinicu.
Povratne vrednosti
Vrednost koju vraća GetAttr je zbir sledećih vrednosti atributa:
|
Konstanta |
Vrednost |
Opis |
|
vbNormalno |
0 |
Normalno. |
|
vbReadOnly |
1 |
Samo za čitanje. |
|
vbHidden |
2 |
Skrivene. |
|
vbSystem |
4 |
Sistemska datoteka. Nije dostupno na Macintosh računaru. |
|
vbDirectory |
16 |
Direktorijum ili fascikla. |
|
vbArchive |
32 |
Datoteka je promenjena od poslednjeg pravljenja rezervne kopije. Nije dostupno na Macintosh računaru. |
|
vbAlias |
64 |
Navedeno ime datoteke je pseudonim. Dostupno samo na Macintosh računaru. |
Napomena: Visual Basic za aplikacije navodi ove konstante. 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 su atributi postavljeni, koristite operator And da biste izvršili poređenje na nivou bita vrednosti koju vraća funkcija GetAttr i vrednost pojedinačnog atributa datoteke koji želite. Ako rezultat nije nula, taj atribut je postavljen za imenovanu datoteku. Na primer, povratna vrednost sledećeg izraza And je nula ako nije postavljen atribut Arhiva:
Result = GetAttr(FName) And vbArchive
Ako je postavljen atribut "Archive", dobija se vrednost koja nije nula.
Primer
Ovaj primer koristi funkciju GetAttr za određivanje atributa datoteke i direktorijuma ili fascikle. Na Macintosh računaru 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.
