GetAttr leírása
Egy egész számot ad vissza, amely egy fájl, mappa vagy könyvtár attribútumait képviseli.
Egyszerű GetAttr példák
| 12 | MsgBox GetAttr ("C: \")MsgBox GetAttr ("D: \ Test.txt") |
Ez egy egész számot ad vissza a fájl/mappa/meghajtó beállításainak megfelelően.
Ha az elérési út neve nem létezik, futási hiba '53' jelenik meg: A fájl nem található.
GetAttr szintaxis
A VBA szerkesztőben beírhatja a „GetAttr (”) parancsot a GetAttr függvény szintaxisának megtekintéséhez:
A GetAttr függvény egy érvet tartalmaz:
PathName: Fájlt/mappát/meghajtót képviselő karakterlánc -kifejezés.
Visszaadja az értékeket
A visszaadott értékGetAttr az alábbi attribútumértékek összege:
| Állandó | Érték | Leírás |
|---|---|---|
| vbNormális | 0 | Normál. |
| vbReadOnly | 1 | Csak olvasható. |
| vb rejtett | 2 | Rejtett. |
| vbSystem | 4 | Rendszerfájl. Nem érhető el Macintosh rendszeren. |
| vbKönyvtár | 16 | Könyvtár vagy mappa. |
| vbArchive | 32 | A fájl megváltozott az utolsó biztonsági mentés óta. Nem érhető el Macintosh rendszeren. |
| vbAlias | 64 | A megadott fájlnév egy álnév. Csak Macintosh rendszeren érhető el. |
Példák az Excel VBA GetAttr függvényére
| 1 | MsgBox GetAttr ("C: \ Program Files (x86)") |
| 1 | MsgBox GetAttr ("C: \") |
A különböző mappákkal/fájlokkal/meghajtókkal végzett tesztelés során különböző számokat ad vissza, például 1, 2, 5, 22 és így tovább.
Például a 22 esetén vbDirectory (16) + vbSystem (4) + vbHidden (2).
Az egyes funkciókhoz tartozó attribútumbeállítások megtekintéséhez használja a következő funkciót.
| 12345678910111213 | Funkció GetAttributeSettings (attr VbFileAttribute) karakterlánckéntDim strSettings Mint StringstrSettings = ""Ha (attr és vbDirectory) = vbDirectory Akkor strSettings = strSettings & "& Directory"Ha (attr és vbVolume) = vbVolume Akkor strSettings = strSettings & "& Volumn"Ha (attr és vbAlias) = vbAlias Akkor strSettings = strSettings & "& Alias"Ha (attr és vbArchive) = vbArchive Akkor strSettings = strSettings & "& Archive"Ha (attr és vbHidden) = vbHidden akkor strSettings = strSettings & "& Hidden"Ha (attr És vbReadOnly) = vbReadOnly Akkor strSettings = strSettings & "& ReadOnly"Ha (attr És vbSystem) = vbSystem Akkor strSettings = strSettings & "& System"GetAttributeSettings = Középső (strSettings, 2)Vége funkció |
| 1 | MsgBox GetAttributeSettings (22) |
Eredmény: „Könyvtár és rejtett és rendszer”
