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.
