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(polun nimi)
Pakollinen polkunimi-argumenttion merkkijonolauseke, joka määrittää tiedostonimen. Polkunimi voi sisältää hakemiston tai kansion sekä aseman.
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.
Määritä, mitkä määritteet on määritetty, käyttämällä And-operaattoriaGetAttr-funktion palauttaman arvon ja haluamasi yksittäisen tiedostomääritteen arvon bittitasovertailuun. 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.