Bemærk
Funktionen, metoden, objektet eller egenskaben, der er beskrevet i dette emne, deaktiveres, hvis Microsoft Jet Expression Service kører i sandkassetilstand, hvilket forhindrer evalueringen af potentielt usikre udtryk. Søg efter "sandkassetilstand" i Hjælp, hvis du vil have mere at vide om sandkassetilstand.
Returnerer et heltal , der repræsenterer attributterne for en fil, et bibliotek eller en mappe.
Syntaks
GetAttr(stinavn)
Det påkrævede stinavn-argumenter et strengudtryk, der angiver et filnavn. Stinavnet kan omfatte mappen og drevet.
Returværdier
Den værdi, der returneres af GetAttr, er summen af følgende attributværdier:
| Konstant | Værdi | Beskrivelse |
|---|---|---|
| vbNormal | 0 | Normal. |
| vbReadOnly | 1 | Skrivebeskyttet. |
| vbHidden | 2 | Skjult. |
| vbSystem | 4 | Systemfil. Ikke tilgængelig på Macintosh. |
| vbDirectory | 16 | Mappe eller mappe. |
| vbArchive | 32 | Filen er ændret siden sidste sikkerhedskopiering. Ikke tilgængelig på Macintosh. |
| vbAlias | 64 | Angivet filnavn er et alias. Kun tilgængelig på Macintosh. |
Bemærk
Disse konstanter er angivet af Visual Basic for Applications. Navnene kan bruges overalt i din kode i stedet for de faktiske værdier.
Bemærkninger
Bemærk
Følgende eksempler demonstrerer brugen af denne funktion i et VBA-modul (Visual Basic for Applications). Hvis du vil have mere at vide om at arbejde med VBA, skal du vælge Udviklerreference på rullelisten ud for Søg og skrive ét eller flere ord i søgefeltet.
For at afgøre, hvilke attributter der er angivet, skal du bruge operatoren And til at udføre en bitvis sammenligning af den værdi, der returneres af funktionen GetAttr og værdien af den individuelle filattribut, du ønsker. Hvis resultatet ikke er nul, angives attributten for den navngivne fil. For eksempel er returværdien af følgende And-udtryk nul, hvis attributten Arkiv ikke er angivet:
Result = GetAttr(FName) And vbArchive
Der returneres en værdi, der er forskellig fra nul, hvis attributten Arkiv er angivet.
Eksempel
I dette eksempel bruges funktionen GetAttr til at bestemme attributterne for en fil, et bibliotek eller en mappe. På Macintosh er kun konstanterne vbNormal, vbReadOnly, vbHidden og vbAlias tilgængelige.
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.