GetAttr, funksjon

Viktig: Denne artikkelen er maskinoversatt, se ansvarsfraskrivelsen. Du finner den engelske versjonen av artikkelen her som referanse.

Merknad: Funksjonen, metoden, objektet eller egenskapen som er beskrevet i dette emnet er deaktivert hvis Microsoft Jet Expression Service kjører i sandkassemodus, som hindrer evaluering av potensielt usikre uttrykk. Hvis du vil ha mer informasjon om sandkassemodus, kan du søke etter "sandkassemodus" i Hjelp.

Returnerer et heltall som representerer attributtene til en fil, en katalog eller mappe.

Syntaks

GetAttr ( bane )

Obligatoriske baneargument er strenguttrykk som angir et filnavn. Bane kan inkludere mappen eller mappen og stasjonen.

Returverdier

Verdien som returneres av GetAttr , er summen av de følgende attributtverdiene:

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 siste sikkerhetskopiering. Ikke tilgjengelig på Macintosh.

vbAlias

64

Angitt filnavn er et alias. Bare tilgjengelig på Macintosh.


Merknad: Disse konstantene angis av Visual Basic for Applications. Navnene kan brukes hvor som helst i koden i stedet for de faktiske verdiene.

Merknader

Merknad: 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.

Hvis du vil finne ut hvilke attributter som er angitt, kan du bruke operatoren og til å utføre en bitvis sammenligning av verdien som returneres av GetAttr -funksjonen og verdien av enkeltfil attributtet du vil bruke. Hvis resultatet ikke er null, settes det attributtet for den navngitte filen. For eksempel er null hvis attributtet Arkiver ikke er angitt i returverdien for følgende og uttrykk:

Result = GetAttr(FName) And vbArchive

En annen verdi enn null, returneres USANN hvis attributtet Arkiver er angitt.

Eksempel

Dette eksemplet brukes GetAttr -funksjonen til å fastslå attributtene til en fil og katalog eller mappe. På Macintosh bare konstantene vbNormal, vbReadOnly, er 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.

Merknad: Ansvarsfraskrivelse for maskinoversettelse: Denne artikkelen er oversatt av et datasystem i stedet for en oversetter. Microsoft tilbyr disse maskinoversettelsene slik at brukere som ikke snakker engelsk, får tilgang til innhold om Microsoft-produkter, -tjenester og –teknologier. Ettersom artikkelen er maskinoversatt, kan den inneholde feil i vokabular, syntaks eller grammatikk.

Utvid ferdighetene dine
Utforsk opplæring
Vær først ute med de nye funksjonene
Bli med i Office Insiders

Var denne informasjonen nyttig?

Takk for tilbakemeldingen!

Takk for tilbakemeldingen! Det høres ut som det kan være lurt å sette deg i kontakt med én av våre Office-kundestøtteagenter.

×