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