Funktionen GetAttr

Vigtigt: Denne artikel er maskinoversat. Se ansvarsfraskrivelsen. Du kan finde den engelske version af denne artikel her til din orientering.

Bemærk: Den funktion, metode, objekt eller egenskab, der er beskrevet i dette emne er deaktiveret, hvis Microsoft Jet Expression Service kører i sandkassetilstand, hvilket forhindrer evaluering af potentielt usikre udtryk. Du kan finde flere oplysninger om sandkassetilstand, søge efter "sandkassetilstand" i Hjælp.

Returnerer et heltal, der angiver attributterne for en fil, et bibliotek eller en mappe.

Syntaks

GetAttr ( stinavn )

Det krævede argumentstinavn er et strengudtryk, der angiver et filnavn. Stinavnet kan indeholde biblioteket eller mappen samt drevet.

Returværdier

Den værdi, der returneres af funktionen 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

Bibliotek eller mappe

vbArchive

32

Filen er ændret siden den sidste sikkerhedskopiering. Ikke tilgængelig på Macintosh.

vbAlias

64

Angiver, at filnavn er et alias. Kun tilgængelig på Macintosh.


Bemærk: Disse konstanter angives 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.

Hvis du vil bestemme, hvilke attributter der er angivet, skal du bruge operatoren And til at foretage en bitvis sammenligning af den værdi, som funktionen GetAttr har returneret, og værdien af den individuelle filattribut, du ønsker. Hvis resultatet ikke er nul, er denne attribut angivet for den navngivne fil. Returværdien for følgende And-udtryk er nul, hvis attributten Arkiv ikke er angivet:

Result = GetAttr(FName) And vbArchive

En værdi, der er forskellig fra nul, returneres, hvis attributten Arkiv er angivet.

Eksempel

I dette eksempel anvendes funktionen GetAttr til at bestemme attributterne for en fil og 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.

Bemærk: Ansvarsfraskrivelse for maskinoversættelse: Denne artikel er blevet oversat af et computersystem uden menneskelig indgriben. Microsoft tilbyder disse maskinoversættelse for at hjælpe ikke-engelsktalende brugere til at kunne nyde indhold om Microsofts produkter, tjenester og teknologier. Da artiklen er maskinoversat, kan den indeholde forkerte ord eller syntaks- eller grammatikfejl.

Del Facebook Facebook Twitter Twitter Mail Mail

Var disse oplysninger nyttige?

Fantastisk! Har du mere feedback?

Hvordan kan vi forbedre det?

Tak for din feedback!

×