GetAttr opis
Vraća cijeli broj koji predstavlja atribute datoteke, mape ili direktorija.
Jednostavni primjeri GetAttr -a
12 | MsgBox GetAttr ("C: \")MsgBox GetAttr ("D: \ Test.txt") |
Ovo će vratiti neki cijeli broj prema postavkama datoteke/mape/pogona.
Ako naziv staze ne postoji, pojavit će se pogreška tijekom izvođenja '53': Datoteka nije pronađena.
GetAttr sintaksa
U VBA Editor -u možete upisati "GetAttr (" da biste vidjeli sintaksu za GetAttr funkciju:
Funkcija GetAttr sadrži argument:
Ime putanje: Nizni izraz koji predstavlja datoteku/mapu/pogon.
Povratne vrijednosti
Vrijednost koju je vratioGetAttr je zbroj sljedećih vrijednosti atributa:
Konstantno | Vrijednost | Opis |
---|---|---|
vbNormalno | 0 | Normalan. |
vbReadOnly | 1 | Samo za čitanje. |
vbHidden | 2 | Skriven. |
vbSystem | 4 | Sistemska datoteka. Nije dostupno na Macintosh -u. |
vbDirectory | 16 | Imenik ili mapa. |
vbArchive | 32 | Datoteka se promijenila od zadnje izrade sigurnosne kopije. Nije dostupno na Macintosh -u. |
vbAlias | 64 | Navedeni naziv datoteke je pseudonim. Dostupno samo na Macintosh -u. |
Primjeri Excel VBA GetAttr funkcije
1 | MsgBox GetAttr ("C: \ Program Files (x86)") |
1 | MsgBox GetAttr ("C: \") |
Tijekom testiranja s različitim mapama/datotekama/pogonima, vratit će različite brojeve poput 1, 2, 5, 22 i tako dalje.
Na primjer, u slučaju 22, to znači vbDirectory (16) + vbSystem (4) + vbHidden (2).
Da biste dobili postavke atributa koje odgovaraju svakom broju, možete koristiti sljedeću funkciju.
12345678910111213 | Funkcija GetAttributeSettings (attr kao VbFileAttribute) kao nizDim strSettings As StringstrSettings = ""Ako (attr i vbDirectory) = vbDirectory Zatim strSettings = strSettings & "& Directory"Ako (attr i vbVolume) = vbVolume tada strSettings = strSettings & "& Volumn"Ako je (attr i vbAlias) = vbAlias tada strSettings = strSettings & "& Alias"Ako (attr i vbArchive) = vbArchive Zatim strSettings = strSettings & "& Arhiva"Ako (attr i vbHidden) = vbHidden Tada strSettings = strSettings & "& Skriveno"Ako (attr i vbReadOnly) = vbReadOnly Zatim strSettings = strSettings & "& ReadOnly"Ako (attr i vbSystem) = vbSystem Zatim strSettings = strSettings & "& System"GetAttributeSettings = Sredina (strSettings, 2)Završna funkcija |
1 | MsgBox GetAttributeSettings (22) |
Rezultat: "Imenik i skriveno i sustav"