Obs!: Funksjonen, metoden, objektet eller egenskapen som beskrives i dette emnet, er deaktivert hvis Microsoft Jet Expression Service 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 Hjelp.
Returnerer et heltall som representerer attributtene til en fil, katalog eller mappe.
Syntaks
GetAttr ( banenavn )
Det nødvendige banenavnetargument er en strenguttrykk som angir et filnavn. Banenavnet kan inneholde katalogen eller mappen og stasjonen.
Returner verdier
Verdien som returneres av GetAttr , er summen av følgende attributtverdier:
|
Konstant |
Value |
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.
Hvis du vil finne ut hvilke attributter som er angitt, bruker du And-operatoren til å utføre en bitvis sammenligning av verdien som returneres av GetAttr-funksjonen og verdien for det individuelle filattributtet du vil bruke. Hvis resultatet ikke er null, angis attributtet for den navngitte filen. Returverdien for følgende Og-uttrykk er for eksempel null hvis arkivattributtet ikke er angitt:
Result = GetAttr(FName) And vbArchive
En verdi som ikke er null, returneres hvis arkivattributtet er angitt.
Eksempel
Dette eksemplet bruker GetAttr-funksjonen til å bestemme attributtene til en fil og 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.
