GetAttri kirjeldus
Tagastab täisarvu, mis tähistab faili, kausta või kataloogi atribuute.
Lihtsad GetAttri näited
12 | MsgBox GetAttr ("C: \")MsgBox GetAttr ("D: \ Test.txt") |
See tagastab mõne täisarvu vastavalt faili/kausta/draivi sätetele.
Kui tee nime pole olemas, ilmneb see käitusajaveaga „53”: faili ei leitud.
GetAttri süntaks
Funktsiooni GetAttr süntaksi nägemiseks võite VBA redaktoris tippida "GetAttr ("):
Funktsioon GetAttr sisaldab järgmist argumenti.
PathName: Stringväljend, mis tähistab faili/kausta/draivi.
Tagastab väärtused
Väärtus tagastatiGetAttr on järgmiste atribuutide väärtuste summa:
Pidev | Väärtus | Kirjeldus |
---|---|---|
vbNormaalne | 0 | Normaalne. |
vbReadOnly | 1 | Loe ainult. |
vbPelatud | 2 | Varjatud. |
vbSystem | 4 | Süsteemifail. Pole Macintoshis saadaval. |
vbKataloog | 16 | Kataloog või kaust. |
vbArhiiv | 32 | Fail on pärast viimast varundamist muutunud. Pole Macintoshis saadaval. |
vbAlias | 64 | Määratud failinimi on varjunimi. Saadaval ainult Macintoshis. |
Funktsiooni Excel VBA GetAttr näited
1 | MsgBox GetAttr ("C: \ Program Files (x86)") |
1 | MsgBox GetAttr ("C: \") |
Erinevate kaustade/failide/draividega testimisel tagastab see erinevaid numbreid, nagu 1, 2, 5, 22 jne.
Näiteks 22 korral tähendab see vbDirectory (16) + vbSystem (4) + vbHidden (2).
Igale numbrile vastavate atribuutide seadete hankimiseks võite kasutada järgmist funktsiooni.
12345678910111213 | Funktsioon GetAttributeSettings (attr As VbFileAttribute) StringinaHämarda sätted stringinastrSettings = ""Kui (attr Ja vbDirectory) = vbDirectory Siis strSettings = strSettings & "& Directory"Kui (attr ja vbVolume) = vbVolume Siis strSettings = strSettings & "& Volumn"Kui (attr ja vbAlias) = vbAlias Siis strSettings = strSettings & "& Alias"Kui (attr ja vbArchive) = vbArchive Siis strSettings = strSettings & "& Arhiiv"Kui (attr ja vbHidden) = vbHidden, siis strSettings = strSettings & "& Hidden"Kui (attr And vbReadOnly) = vbReadOnly Siis strSettings = strSettings & "& ReadOnly"Kui (attr Ja vbSystem) = vbSystem Siis strSettings = strSettings & "& System"GetAttributeSettings = Keskmine (strSettings, 2)Lõppfunktsioon |
1 | MsgBox GetAttributeSettings (22) |
Tulemus: „Kataloog ja peidetud & süsteem”