Funktio palauttaa tiedoston tai hakemiston attribuutit.
GetAttr(tiedosto)
Funktio palauttaa tiedoston (joka voi olla myös hakemisto) attribuutit. Funktion palautusarvo on joku seuraavista arvoista tai useamman summa:
| arvo | vakio | kuvaus |
| 0 | vbNormal | tavallinen tiedosto |
| 1 | vbReadOnly | kirjoitussuojattu tiedosto |
| 2 | vbHidden | piilotiedosto |
| 4 | vbSystem | systeemitiedosto |
| 16 | vbDirectory | hakemisto |
| 32 | vbArchive | arkistoitu tiedosto |
Yksittäisen attribuutin tilan saa selville helposti vertailemalla palautusarvoa attribuuttiin And-operaattorilla. Jos vertailu on tosi, attribuutti on valittuna.
Dim tiedosto As String, attr As Integer tiedosto = "c:\omat\testi.txt" attr = GetAttr(tiedosto) 'tulostaa tiedoston attribuutit Debug-ikkunaan Debug.Print "Kirjoitussuojattu: " & (attr And vbReadOnly) Debug.Print "Piilotettu: " & (attr And vbHidden) Debug.Print "Systeemitiedosto: " & (attr And vbSystem) Debug.Print "Hakemisto: " & (attr And vbDirectory) Debug.Print "Arkistoitu: " & (attr And vbArchive)
Aiheeseen liittyvää: SetAttr