Opis GetAttr
Vrne celo število, ki predstavlja atribute datoteke, mape ali imenika.
Preprosti primeri GetAttr
12 | MsgBox GetAttr ("C: \")MsgBox GetAttr ("D: \ Test.txt") |
To bo vrnilo nekaj celega števila glede na nastavitve datoteke/mape/pogona.
Če ime poti ne obstaja, bo prišlo do napake med izvajanjem '53': Datoteke ni mogoče najti.
GetAttr Sintaksa
V urejevalniku VBA lahko vnesete »GetAttr («), če si želite ogledati skladnjo funkcije GetAttr:
Funkcija GetAttr vsebuje argument:
Ime poti: Niz izraz, ki predstavlja datoteko/mapo/pogon.
Vrnjene vrednosti
Vrednost, ki jo vrneGetAttr je vsota naslednjih vrednosti atributov:
Konstantno | Vrednost | Opis |
---|---|---|
vbNormalno | 0 | Normalno. |
vbReadOnly | 1 | Le za branje. |
vbHidden | 2 | Skrita. |
vbSystem | 4 | Sistemska datoteka. Ni na voljo v sistemu Macintosh. |
vbDirectory | 16 | Imenik ali mapa. |
vbArchive | 32 | Datoteka se je spremenila od zadnje varnostne kopije. Ni na voljo v sistemu Macintosh. |
vbAlias | 64 | Določeno ime datoteke je vzdevek. Na voljo samo v sistemu Macintosh. |
Primeri funkcije Excel VBA GetAttr
1 | MsgBox GetAttr ("C: \ Program Files (x86)") |
1 | MsgBox GetAttr ("C: \") |
Med testiranjem z različnimi mapami/datotekami/pogoni bo vrnil različne številke, kot so 1, 2, 5, 22 itd.
Na primer v primeru 22 pomeni vbDirectory (16) + vbSystem (4) + vbHidden (2).
Če želite, da nastavitve atributov ustrezajo vsaki številki, lahko uporabite naslednjo funkcijo.
12345678910111213 | Funkcija GetAttributeSettings (attr kot VbFileAttribute) kot nizZatemni str Nastavitve kot nizstrSettings = ""Če (attr In vbDirectory) = vbDirectory Potem strSettings = strSettings & "& Directory"Če (attr In vbVolume) = vbVolume Potem strSettings = strSettings & "& Volumn"Če je (attr in vbAlias) = vbAlias, potem strSettings = strSettings & "& Alias"Če (attr in vbArchive) = vbArchive, potem strSettings = strSettings & "& Arhiv"Če (attr In vbHidden) = vbHidden Potem strSettings = strSettings & "& Hidden"Če (attr in vbReadOnly) = vbReadOnly Potem strSettings = strSettings & "& ReadOnly"Če (attr In vbSystem) = vbSystem Potem strSettings = strSettings & "& System"GetAttributeSettings = Mid (strSettings, 2)Končana funkcija |
1 | MsgBox GetAttributeSettings (22) |
Rezultat: »Imenik in skriti & sistem«