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 ( pathname )
Det sökvägargument som krävs är en stränguttryck som anger ett filnamn. Sökvägen kan innehålla 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 |
Skrivskyddad. |
|
vbHidden |
2 |
Dolda. |
|
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 har angetts 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. Returvärdet för följande Och-uttryck är till exempel noll om attributet Arkivera inte har angetts:
Result = GetAttr(FName) And vbArchive
Ett annat värde än 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 en 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.
