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 |
Vrijednost |
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.
