„GetAttr“ aprašymas
Grąžina sveikąjį skaičių, nurodantį failo, aplanko ar katalogo atributus.
Paprasti „GetAttr“ pavyzdžiai
12 | „MsgBox GetAttr“ („C:“)„MsgBox GetAttr“ („D: \ Test.txt“) |
Tai grąžins sveikąjį skaičių pagal failo/aplanko/disko nustatymus.
Jei kelio pavadinimo nėra, įvyks vykdymo laiko klaida „53“: failas nerastas.
„GetAttr“ sintaksė
VBA redaktoriuje galite įvesti „GetAttr (“), kad pamatytumėte „GetAttr“ funkcijos sintaksę:
Funkcijoje „GetAttr“ yra argumentas:
Kelio pavadinimas: Eilutės išraiška, vaizduojanti failą/aplanką/diską.
Grąžinti vertes
Vertę grąžinoGetAttr yra šių atributų reikšmių suma:
Pastovus | Vertė | apibūdinimas |
---|---|---|
vbNormalus | 0 | Normalus. |
vbReadOnly | 1 | Tik skaitymui. |
vbSlėpta | 2 | Paslėptas. |
vbSystem | 4 | Sistemos failas. Negalima naudoti „Macintosh“. |
vbkatalogas | 16 | Katalogas arba aplankas. |
vbArchyvas | 32 | Failas pasikeitė nuo paskutinės atsarginės kopijos. Negalima naudoti „Macintosh“. |
vbAlias | 64 | Nurodytas failo pavadinimas yra slapyvardis. Galima tik „Macintosh“. |
„Excel VBA GetAttr“ funkcijos pavyzdžiai
1 | „MsgBox GetAttr“ („C: \ Program Files (x86)“) |
1 | „MsgBox GetAttr“ („C:“) |
Bandant su įvairiais aplankais/failais/diskais, bus pateikti įvairūs skaičiai, tokie kaip 1, 2, 5, 22 ir pan.
Pvz., 22 atveju tai reiškia vbDirectory (16) + vbSystem (4) + vbSlėptas (2).
Norėdami gauti atributų nustatymus, atitinkančius kiekvieną skaičių, galite naudoti šią funkciją.
12345678910111213 | Funkcija GetAttributeSettings (attr As VbFileAttribute) Kaip eilutėDim dimSettings As StringstrSettings = ""Jei (attr Ir vbDirectory) = vbDirectory tada strSettings = strSettings & "& Directory"Jei (attr Ir vbVolume) = vbVolume Tada strSettings = strSettings & "& Volumn"Jei (attr Ir vbAlias) = vbAlias Tada strSettings = strSettings & "& Alias"Jei (attr Ir vbArchive) = vbArchive, tada strSettings = strSettings & "& Archyvas"Jei (attr Ir vbHidden) = vbSlėptas, tada strSettings = strSettings & "& Hidden"Jei (attr Ir vbReadOnly) = vbReadOnly Tada strSettings = strSettings & "& ReadOnly"Jei (attr Ir vbSystem) = vbSystem Tada strSettings = strSettings & "& System"GetAttributeSettings = Vidutinis (strSettings, 2)Pabaigos funkcija |
1 | „MsgBox GetAttributeSettings“ (22) |
Rezultatas: „Katalogas ir paslėpta sistema“