GetAttr, functie
Van toepassing op
Opmerking
De functie, methode, object of eigenschap die in dit onderwerp wordt beschreven, is uitgeschakeld als de Microsoft Jet Expression-service wordt uitgevoerd in de sandbox-modus, waardoor de evaluatie van mogelijk onveilige expressies wordt voorkomen. Zoek naar 'sandbox-modus' in de Help voor meer informatie over de sandboxmodus.
Deze functie retourneert een Integer die de kenmerken van een bestand of map vertegenwoordigt.
Syntaxis
GetAttr(padnaam)
Het argument vereiste padnaamis een tekenreeksexpressie waarmee een bestandsnaam wordt opgegeven. De padnaam kan de map of map en het station bevatten.
Retourwaarden
De waarde die het resultaat is van GetAttr is de som van de volgende kenmerkwaarden:
| Constante | Waarde | Beschrijving |
|---|---|---|
| vbNormal | 0 | Normaal. |
| vbReadOnly | 1 | Alleen-lezen. |
| vbHidden | 2 | Verborgen. |
| VbSystem | 4 | Systeembestand. Niet beschikbaar voor de Mac. |
| vbDirectory | 16 | Map. |
| vbArchive | 32 | Bestand is gewijzigd sinds de laatste back-up. Niet beschikbaar voor de Mac. |
| vbAlias | 64 | De opgegeven bestandsnaam is een alias. Alleen beschikbaar voor de Mac. |
Opmerking
Deze constanten worden opgegeven door Visual Basic for Applications. De namen kunnen overal in de code worden gebruikt in plaats van de werkelijke waarden.
Opmerkingen
Opmerking
In de volgende voorbeelden wordt het gebruik van deze functie in een VBA-module (Visual Basic for Applications) toegelicht. Meer informatie over het werken met VBA vindt u door in de vervolgkeuzelijst naast Zoeken de optie Referentie voor ontwikkelaars te selecteren en een of meer termen in het zoekvenster te typen.
Als u wilt bepalen welke kenmerken zijn ingesteld, gebruikt u de operator And om een bitgewijze vergelijking uit te voeren van de waarde die wordt geretourneerd door de functie GetAttr en de waarde van het gewenste afzonderlijke bestandskenmerk. Als het resultaat niet nul is, wordt dat kenmerk is ingesteld voor het benoemde bestand. De retourwaarde van de volgende expressie met And is bijvoorbeeld nul als het kenmerk Archive niet is ingesteld:
Result = GetAttr(FName) And vbArchive
Er wordt een andere waarde dan nul geretourneerd als het kenmerk Archive is ingesteld.
Voorbeeld
In dit voorbeeld wordt de functie GetAttr gebruikt om de kenmerken van een bestand en map te bepalen. Op een Mac zijn alleen de constanten vbNormal, vbReadOnly, vbHidden en vbAlias beschikbaar.
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.