GetAttr-beschrijving
Retourneert een geheel getal dat de kenmerken van een bestand, map of map vertegenwoordigt.
Eenvoudige GetAttr-voorbeelden
| 12 | MsgBox GetAttr("C:\")MsgBox GetAttr("D:\Test.txt") |
Dit zal een geheel getal retourneren volgens de instellingen van het bestand/map/station.
Als de padnaam niet bestaat, treedt er een Runtime-fout '53' op: Bestand niet gevonden.
GetAttr-syntaxis
In de VBA-editor kunt u "GetAttr(" typen om de syntaxis voor de GetAttr-functie te zien:
De functie GetAttr bevat een argument:
Padnaam: Een tekenreeksexpressie die een bestand/map/station vertegenwoordigt.
Retourwaarden
De waarde die wordt geretourneerd doorGetAttr is de som van de volgende attribuutwaarden:
| Constante | Waarde | Beschrijving |
|---|---|---|
| vbNormaal | 0 | Normaal. |
| vbAlleen-lezen | 1 | Alleen lezen. |
| vbVerborgen | 2 | Verborgen. |
| vbSysteem | 4 | Systeem bestand. Niet beschikbaar op de Macintosh. |
| vbDirectory | 16 | Directory of map. |
| vbArchief | 32 | Bestand is gewijzigd sinds de laatste back-up. Niet beschikbaar op de Macintosh. |
| vbAlias | 64 | De opgegeven bestandsnaam is een alias. Alleen beschikbaar op de Macintosh. |
Voorbeelden van Excel VBA GetAttr-functie
| 1 | MsgBox GetAttr("C:\Program Files (x86)") |
| 1 | MsgBox GetAttr("C:\") |
Tijdens het testen met verschillende mappen/bestanden/stations, zal het verschillende nummers retourneren, zoals 1, 2, 5, 22 enzovoort.
In het geval van 22 betekent dit bijvoorbeeld vbDirectory(16) + vbSystem(4) + vbHidden(2).
Om de attributeninstellingen te krijgen die bij elk nummer horen, kunt u de volgende functie gebruiken.
| 12345678910111213 | Functie GetAttributeSettings(attr As VbFileAttribute) As StringDim strInstellingen als stringstrSettings = ""If (attr And vbDirectory) = vbDirectory Dan strSettings = strSettings & "&Directory"If (attr And vbVolume) = vbVolume Dan strSettings = strSettings & "&Volumn"If (attr And vbAlias) = vbAlias Dan strSettings = strSettings & "&Alias"If (attr And vbArchive) = vbArchive Dan strSettings = strSettings & "&Archive"If (attr And vbHidden) = vbHidden Dan strSettings = strSettings & "&Hidden"If (attr En vbReadOnly) = vbReadOnly Dan strSettings = strSettings & "&ReadOnly"If (attr And vbSystem) = vbSystem Dan strSettings = strSettings & "&System"GetAttributeSettings = Mid(strSettings, 2)Functie beëindigen |
| 1 | MsgBox GetAttributeSettings(22) |
Resultaat: "Directory & Verborgen & Systeem"
