Funktionen GetAttr

Obs!: Funktionen, metoden, objektet eller egenskapen som beskrivs i det här avsnittet inaktiveras om Microsoft Jet Expression Service körs i begränsat läge, vilket förhindrar utvärderingen av potentiellt osäkra uttryck. Om du vill ha mer information om begränsat läge söker du efter "begränsat läge" i hjälpen.

Returnerar ett heltal som representerar attributen för en fil, katalog eller mapp.

Syntax

GetAttr ( sökväg )

Den sökväg argument är en stränguttryck som anger ett filnamn. Sökvägen kan inkludera katalogen eller mappen och enheten.

Returvärden

Värdet som returneras av GetAttr är summan av följande attributvärden:

Konstant

Värde

Beskrivning

vbNormal

0

Normal.

vbReadOnly

1

Skrivskyddade.

vbHidden

2

Dold.

vbSystem

4

Systemfil. Inte tillgängligt på Mac-datorer.

vbDirectory

16

Katalog eller mapp.

vbArchive

32

Filen har ändrats sedan den senaste säkerhetskopian. Inte tillgängligt på Mac-datorer.

vbAlias

64

Filnamnet är ett alias. Endast tillgängligt på Mac-datorer.


Obs!: Konstanterna definieras av Visual Basic for Applications. Namnen kan användas var som helst i koden i stället för de faktiska värdena.

Anmärkningar

Obs!: I exemplen nedan visar vi hur du använder den här funktionen i en Visual Basic for Applications-modul (VBA). Om du vill läsa mer om hur man använder VBA, kan du välja Info för utvecklare i listrutan bredvid Sök och sedan skriva en eller flera söktermer i sökrutan.

För att avgöra vilka attribut som anges använder du operatorn Och för att utföra en binär jämförelse av värdet som returneras av funktionen GetAttr och värdet för det enskilda filattributet som du vill använda. Om resultatet inte är noll anges det attributet för den namngivna filen. Till exempel är returvärdet för följande Och-uttryck noll om attributet Archive inte har angetts:

Result = GetAttr(FName) And vbArchive

Ett värde som inte är noll returneras om attributet Arkiv har angetts.

Exempel

I det här exemplet används funktionen GetAttr för att fastställa attributen för en fil och katalog eller mapp. På Macintosh är endast konstanterna vbNormal, vbReadOnly, vbHidden och vbAlias tillgängliga.

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.

Behöver du mer hjälp?

Utöka dina Office-kunskaper
Utforska utbildning
Få nya funktioner först
Anslut till Office Insiders

Hade du nytta av den här informationen?

Tack för din feedback!

Tack för din feedback! Det låter som att det kan vara bra att koppla dig till en av våra Office-supportrepresentanter.

×