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