Obs!
Funksjonen, metoden, objektet eller egenskapen som er beskrevet i dette emnet, er deaktivert hvis Microsoft Jet Expression-tjenesten kjører i sandkassemodus, noe som forhindrer evaluering av potensielt usikre uttrykk. Hvis du vil ha mer informasjon om sandkassemodus, kan du søke etter «sandkassemodus» i hjelpen.
Returnerer et heltall som representerer attributtene til en fil, mappe eller mappe.
Syntaks
GetAttr(banenavn)
Det nødvendige banenavn-argumenteter et strenguttrykk som angir et filnavn. Banen navnet kan omfatte katalogen eller mappen og stasjonen.
Returverdier
Verdien som returneres av GetAttr , er summen av følgende attributtverdier:
| Konstant | Verdi | Beskrivelse |
|---|---|---|
| vbNormal | 0 | Normal. |
| vbReadOnly | 1 | Skrivebeskyttet. |
| vbHidden | 2 | Skjult. |
| vbSystem | 4 | Systemfil. Ikke tilgjengelig på Macintosh. |
| vbDirectory | 16 | Katalog eller mappe. |
| vbArchive | 32 | Filen er endret siden forrige sikkerhetskopiering. Ikke tilgjengelig på Macintosh. |
| vbAlias | 64 | Det angitte filnavnet er et alias. Bare tilgjengelig på Macintosh. |
Obs!
Disse konstantene angis av Visual Basic for Applications. Navnene kan brukes hvor som helst i koden i stedet for de faktiske verdiene.
Merknader
Obs!
I eksemplene nedenfor vises bruken av denne funksjonen i en VBA-modul (Visual Basic for Applications). Hvis du vil ha mer informasjon om hvordan du arbeider med VBA, velger du Utviklerreferanse fra rullegardinlisten ved siden av Søk og skriver inn ett eller flere søkeord i søkeboksen.
Du finner ut hvilke attributter som er angitt, ved å bruke Og-operatoren til å utføre en bitvis sammenligning av verdien som returneres av GetAttr-funksjonen, og verdien til det individuelle filattributtet du vil bruke. Hvis resultatet ikke er null, angis dette attributtet for den navngitte filen. Returverdien for følgende And-uttrykk er for eksempel null hvis Arkiv-attributtet ikke er angitt:
Result = GetAttr(FName) And vbArchive
En verdi som ikke er null, returneres hvis Arkiv-attributtet er angitt.
Eksempel
Dette eksemplet bruker GetAttr-funksjonen til å bestemme attributtene for en fil, mappe eller mappe. På Macintosh er bare konstantene vbNormal, vbReadOnly, vbHidden og vbAlias tilgjengelige.
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.