Megjegyzés
A témakörben ismertetett függvény, metódus, objektum vagy tulajdonság le van tiltva, ha a Microsoft Jet Expression Service védőfalas üzemmódban fut, mivel ez megakadályozza az esetleg nem biztonságos kifejezések kiszűrését. A védőfalas üzemmódról a súgóban a „védőfalas üzemmód” kifejezésre keresve talál további információt.
Egy fájl, könyvtár vagy mappa attribútumait jelölő egész számot ad vissza.
Szintaxis
GetAttr(elérési út neve)
A szükséges elérésiút-argumentumegy sztringkifejezés, amely egy fájlnevet határoz meg. Az elérési út neve magában foglalhatja a könyvtárat vagy mappát, valamint a meghajtót.
Visszatérési értékek
A GetAttr által visszaadott érték a következő attribútumértékek összege:
| Állandó | Érték | Leírás: |
|---|---|---|
| vbNormal | 0 | Normál. |
| vbReadOnly | 1 | Írásvédett. |
| vbHidden | 2 | Rejtett. |
| vbSystem | 4 | Rendszerfájl. Macintosh rendszeren nem érhető el. |
| vbDirectory | 16 | Könyvtár vagy mappa. |
| vbArchive | 32 | A fájl megváltozott a legutóbbi biztonsági mentés óta. Macintosh rendszeren nem érhető el. |
| vbAlias | 64 | A megadott fájlnév egy hivatkozási név (alias). Csak Macintosh rendszeren érhető el. |
Megjegyzés
Ezeket az állandókat a Visual Basic for Applications határozza meg. A nevek a kódban bárhol használhatók a tényleges értékek helyett.
Megjegyzések
Megjegyzés
A következő példák egy Visual Basic for Applications (VBA) modulban mutatják be a függvény használatát. A VBA használatáról a Keresés elem mellett található legördülő listából a fejlesztői forrásokat választva, majd egy vagy több keresőszót megadva kaphat további tájékoztatást.
A beállított attribútumok meghatározásához használja az And operátort a GetAttr függvény által visszaadott érték és a kívánt fájlattribútum értékének bitenkénti összehasonlítására. Ha az eredmény nem nulla, akkor az attribútum be van állítva a megnevezett fájlhoz. A következő And kifejezés visszatérési értéke például nulla, ha a Archívum attribútum nincs beállítva:
Result = GetAttr(FName) And vbArchive
Nem nulla értéket ad vissza, ha a Archívum attribútum be van állítva.
Példa
Ez a példa a GetAttr függvénnyel határozza meg egy fájl és könyvtár vagy mappa attribútumait. Macintosh rendszeren csak a vbNormal, vbReadOnly, vbHidden és vbAlias állandók érhetők el.
Dim MyAttr
' Assume file TESTFILE has hidden attribute set.
MyAttr = GetAttr("TESTFILE") ' Returns 2.
' Returns nonzero if hidden attribute is
' set on TESTFILE.
Debug.Print MyAttr And vbHidden
' Assume file TESTFILE has hidden and
' read-only attributes set.
MyAttr = GetAttr("TESTFILE") ' Returns 3.
' Returns nonzero if hidden attribute is
' set on TESTFILE.
Debug.Print MyAttr And (vbHidden + vbReadOnly)
' Assume MYDIR is a directory or folder.
MyAttr = GetAttr("MYDIR") ' Returns 16.