GetAttr-funktio

Huomautus: Tässä ohjeaiheessa kuvattu funktio, menetelmä, objekti tai ominaisuus ei ole käytössä, jos Microsoft Jet Expression Service toimii eristetyssä tilassa, mikä estää mahdollisesti vahingollisten lausekkeiden arvioimisen. Katso lisätietoja eristetystä tilasta ohjeen ”Eristetty tila” -kohdasta.

Palauttaa tiedoston, hakemiston tai kansion määritteitä vastaavan kokonaisluvun.

Syntaksi

GetAttr ( polkunimi )

Pakollinen polkunimi-argumentti on merkkijonolauseke, joka määrittää tiedostonimen. Polkunimi voi sisältää hakemiston tai kansion sekä levyaseman.

Palautusarvot

GetAttr-funktion palauttama arvo on seuraavien määritteiden arvojen summa:

Vakio

Arvo

Kuvaus

vbNormal

0

Normaali.

vbReadOnly

1

Vain luku.

vbHidden

2

Piilotettu.

vbSystem

4

Järjestelmätiedosto. Ei käytettävissä Macintoshissa.

vbDirectory

16

Hakemisto tai kansio.

vbArchive

32

Tiedosto on muuttunut edellisen varmuuskopioinnin jälkeen. Ei käytettävissä Macintoshissa.

vbAlias

64

Määritetty tiedostonimi on alias. Käytettävissä vain Macintoshissa.


Huomautus: Nämä vakiot on määrittänyt Visual Basic for Applications. Nimiä voidaan käyttää koodissa missä tahansa todellisten arvojen sijasta.

Huomautuksia

Huomautus: Seuraavissa esimerkeissä kerrotaan, kuinka tätä funktiota käytetään Visual Basic for Applications (VBA) -moduulissa. Jos haluat lisätietoja VBA:n käytöstä, valitse Sovelluskehittäjän opasHaku-kentän viereisestä luettelosta ja anna yksi tai useampi hakuehto hakukenttään.

Jos haluat määrittää, mitkä määritteet on asetettu, suorita And-operaattorin avulla bittitason vertailuGetAttr-funktion palauttaman arvon ja haluamasi yksittäisen tiedoston määritteen välillä. Jos tulos ei ole nolla, nimetylle tiedostolle on asetettu kyseinen määrite. Esimerkiksi seuraavan And-lausekkeen palautusarvo on nolla, jos arkistointimääritettä ei ole asetettu:

Result = GetAttr(FName) And vbArchive

Jos arkistointimäärite on asetettu, palautusarvo on muu kuin nolla.

Esimerkki

Tässä esimerkissä GetAttr-funktion avulla määritetään tiedoston ja hakemiston tai kansion määritteet. Macintoshissa ovat käytettävissä vain vakiot 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.
Kehitä taitojasi
Tutustu koulutusmateriaaliin
Saat uudet ominaisuudet ensimmäisten joukossa
Liity Office Insider -käyttäjiin

Oliko näistä tiedoista hyötyä?

Kiitos palautteesta!

Kiitos palautteestasi! Näyttää siltä, että Office-tukiedustajamme avusta voi olla sinulle hyötyä.

×