Napomena: Funkcija, metoda, objekt ili svojstvo opisano u ovoj temi onemogućeno je ako je Microsoft Jet Expression Service pokrenut u načinu rada sigurnosne ograde, što onemogućuje procjenu potencijalno nesigurnih izraza. Dodatne informacije o načinu rada sigurnosne ograde potražite u pomoći u odjeljku "način rada s memorijom za testiranje".
Vraća cijeli broj koji predstavlja atribute datoteke, direktorija ili mape.
Sintaksa
GetAttr ( naziv puta )
Traženi naziv putaargument je nizovni izraz koji određuje naziv datoteke. Naziv puta može obuhvaćati direktorij ili mapu i pogon.
Vraćanje vrijednosti
Vrijednost koju vraća GetAttr zbroj je sljedećih vrijednosti atributa:
Konstanta |
Value (Vrijednost) |
Description (Opis) |
vbNormal |
0 |
Normalno. |
vbReadOnly |
1 |
Samo za čitanje. |
vbHidden |
2 |
Skrivene. |
vbSystem |
4 |
Sistemska datoteka. Nije dostupno na Macintosh. |
vbDirectory |
16 |
Direktorij ili mapa. |
vbArhiviranje |
32 |
Datoteka se promijenila od zadnjeg sigurnosnog kopiranja. Nije dostupno na Macintosh. |
vbAlias |
64 |
Navedeni je naziv datoteke pseudonim. Dostupno samo za Macintosh. |
Napomena: Te konstante naveli su Visual Basic for Applications. Nazivi se mogu koristiti bilo gdje u kodu, a ne samo 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, pomoću operatora Andusporedba na razini bitova vrijednost koju vraća funkcija GetAttr i vrijednost željenog atributa pojedinačne datoteke. Ako rezultat nije nula, taj je atribut postavljen za imenovanu datoteku. Na primjer, povratna vrijednost sljedećeg izraza And je nula ako atribut Arhiva nije postavljen:
Result = GetAttr(FName) And vbArchive
Ako je postavljen atribut Arhiva, vraća se vrijednost koja nije nula.
Primjer
U ovom se primjeru pomoću funkcije GetAttr određuju atributi datoteke i direktorija ili mape. Na Macintoshu 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.