GetAttr -kuvaus
Palauttaa kokonaisluvun, joka edustaa tiedoston, kansion tai hakemiston määritteitä.
Yksinkertaisia GetAttr -esimerkkejä
12 | MsgBox GetAttr ("C: \")MsgBox GetAttr ("D: \ Test.txt") |
Tämä palauttaa jonkin kokonaisluvun tiedoston/kansion/aseman asetusten mukaisesti.
Jos polun nimeä ei ole, se aiheuttaa ajonaikaisen virheen '53': Tiedostoa ei löydy.
GetAttrin syntaksi
VBA -editorissa voit kirjoittaa GetAttr () nähdäksesi GetAttr -funktion syntaksin:
GetAttr -funktio sisältää argumentin:
Polun nimi: Jonolauseke, joka edustaa tiedostoa/kansiota/asemaa.
Palauta arvot
Arvo palauttiGetAttr on seuraavien määritteen arvojen summa:
Jatkuva | Arvo | Kuvaus |
---|---|---|
vbNormaali | 0 | Normaali. |
vbReadOnly | 1 | Lue ainoastaan. |
vbPiilotettu | 2 | Piilotettu. |
vbSystem | 4 | Järjestelmätiedosto. Ei käytettävissä Macintoshissa. |
vbHakemisto | 16 | Hakemisto tai kansio. |
vbArkisto | 32 | Tiedosto on muuttunut edellisen varmuuskopioinnin jälkeen. Ei käytettävissä Macintoshissa. |
vbAlias | 64 | Määritetty tiedostonimi on alias. Käytettävissä vain Macintoshissa. |
Esimerkkejä Excel VBA GetAttr -toiminnosta
1 | MsgBox GetAttr ("C: \ Ohjelmatiedostot (x86)") |
1 | MsgBox GetAttr ("C: \") |
Kun testataan eri kansioilla/tiedostoilla/asemilla, se palauttaa erilaisia numeroita, kuten 1, 2, 5, 22 ja niin edelleen.
Esimerkiksi 22: n tapauksessa se tarkoittaa vb -hakemistoa (16) + vbSystem (4) + vbPiilotettua (2).
Voit käyttää kutakin numeroa vastaavia määritteitä käyttämällä seuraavaa toimintoa.
12345678910111213 | Toiminto GetAttributeSettings (attr As VbFileAttribute) merkkijononaHimmennä asetuksia merkkijononastrSettings = ""Jos (attr Ja vbDirectory) = vbDirectory Sitten strSettings = strSettings & "& Directory"Jos (attr Ja vbVolume) = vbVolume Sitten strSettings = strSettings & "& Volumn"Jos (attr Ja vbAlias) = vbAlias Sitten strSettings = strSettings & "& Alias"Jos (attr Ja vbArchive) = vbArchive Sitten strSettings = strSettings & "& Arkisto"Jos (attr Ja vbPiilotettu) = vbPiilotettu sitten strSettings = strSettings & "& Piilotettu"Jos (attr Ja vbReadOnly) = vbReadOnly Sitten strSettings = strSettings & "& ReadOnly"Jos (attr Ja vbSystem) = vbSystem Sitten strSettings = strSettings & "& System"GetAttributeSettings = Mid (strSettings, 2)Lopeta toiminto |
1 | MsgBox GetAttributeSettings (22) |
Tulos: "Hakemisto ja piilotettu & järjestelmä"