Napomena: Funkcija, način, objekt ili svojstvo opisano u ovoj temi onemogućeno je ako je Microsoft Jet Expression servis pokrenut u načinu rada s izdvojenom funkcijom, čime se sprječava vrednovanje potencijalno nesigurnih izraza. Dodatne informacije o načinu rada s izdvojenom pomoću pretraživanja potražite u odjeljku "Izdvojeni način rada".

Vraća cijeli broj koji predstavlja atribute datoteke, direktorija ili mape.

Sintaksa

GetAttr ( putu )

Obavezanargumentputunizovni izraz je koji određuje naziv datoteke. Ime putu može uključivati direktorij ili mapu, a pogon.

Povratne 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 Macintoshu.

vbDirectory

16

Direktorij ili mapa.

vbArchive

32

Datoteka se promijenila od zadnje sigurnosne kopije. Nije dostupno na Macintoshu.

Vbpseudonim

64

Navedeni naziv datoteke pseudonim je. Dostupno samo na Macintoshu.


Napomena: Te su konstante navedene u programu 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 da biste izvršili usporedba na razini bitova vrijednosti 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 i izraza je nula ako atribut arhiviranja nije postavljen:

Result = GetAttr(FName) And vbArchive

Ako je atribut arhiviranja postavljen, vraća se vrijednost koja nije nula.

Primjer

U ovom se primjeru koristi funkcija GetAttr za određivanje atributa datoteke i direktorija ili mape. Na Macintoshu su dostupne samo konstante vbNormal, vbReadOnly, vbHidden i Vbpseudonim.

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.

Potrebna vam je dodatna pomoć?

Proširite svoje vještine
Istražite osposobljavanje
Prvi koristite nove značajke
Pridružite se Microsoft Insidere

Jesu li ove informacije bile korisne?

Koliko ste zadovoljni kvalitetom prijevoda?
Što je utjecalo na vaše iskustvo?

Hvala vam na povratnim informacijama!

×