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 útargumentum egy fájlnevet megadó karakterlánc-kifejezés. 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.
Annak meghatározásához, hogy mely attribútumok vannak beállítva, az And operátorral hajtsa végre a GetAttr függvény által visszaadott érték bitenkénti összehasonlítás és a kívánt fájlattribútum értékének bitenkénti összehasonlítás. Ha az eredmény nem nulla, akkor az attribútum be van állítva a megnevezett fájlhoz. A következő És kifejezés visszatérési értéke például nulla, ha az Archive attribútum nincs beállítva:
Result = GetAttr(FName) And vbArchive
A függvény nem nulla értéket ad vissza, ha az Archive 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.
