Funktsioon GetAttr

Märkus. : Kui Microsoft Jet Expression Service töötab liivakastirežiimis, mis takistab potentsiaalselt ebaturvaliste avaldiste väärtustamist, on käesolevas artiklis kirjeldatud funktsioon, meetod, objekt või atribuut keelatud. Liivakastirežiimi kohta lisateabe saamiseks otsige spikrist sõna „liivakastirežiim”.

Tagastab väärtuse Täisarv, mis tähistab faili, kataloogi või kausta atribuute.

Süntaks

GetAttr ( teenimi )

Nõutav argument teenimi on stringavaldis, mis määrab failinime. Argument pathname võib kaasata kataloogi või kausta ja draivi.

Tagastusväärtused

Funktsiooniga GetAttr tagastatud väärtus on järgmiste atribuudiväärtuste summa.

Konstant

Väärtus

Kirjeldus

vbNormal

0

Tavaline.

vbReadOnly

1

Kirjutuskaitstud.

vbHidden

2

Peidetud.

vbSystem

4

Süsteemifail. Pole saadaval Macintoshi arvutis.

vbDirectory

16

Kataloog või kaust.

vbArchive

32

Faili on pärast viimast varundamist muudetud. Pole saadaval Macintoshi arvutis.

vbAlias

64

Määratud failinimi on pseudonüüm. Saadaval vaid Macintoshi arvutis.


Märkus. : Need konstandid määrab Visual Basic for Applications. Neid nimetusi saab koodis kasutada tegelike väärtuste asemel.

Kommentaarid

Märkus. : Järgmised näited kujutavad selle funktsiooni kasutamist rakenduse Visual Basic for Applications (VBA) moodulis. Lisateabe saamiseks VBA-ga töötamise kohta valige välja Otsing kõrval kuvatavast ripploendist väärtus Tootearendusmaterjal ja sisestage otsinguväljale üks või mitu sõna.

Seatud atribuutide määramiseks kasutage operaatorit And, et sooritada funktsiooni GetAttr tagastatud väärtuse ja soovitud üksikfaili atribuudi väärtuse vahel bitthaaval võrdlus. Kui tulemus pole tühiväärtusega, siis on vastav atribuut nimetatud failile seatud. Näiteks kui arhiiviatribuut pole seatud, on järgmise operaatori And avaldise tagastusväärtus tühiväärtusega.

Result = GetAttr(FName) And vbArchive

Kui arhiiviatribuut on seatud, tagastatakse tühiväärtusest erinev väärtus.

Näide

Järgmises näites kasutatakse funktsiooni GetAttr faili ja kataloogi või kausta atribuutide määramiseks. Macintoshis on saadaval ainult konstandid vbNormal, vbReadOnly, vbHidden ja 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.
Täiendage oma oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liituge Office Insideri programmiga

Kas sellest teabest oli abi?

Täname tagasiside eest!

Täname tagasiside eest! Tundub, et võiksime teid kokku viia ühega meie Office'i tugiagentidest, kes aitab teil probleemi lahendada.

×