Poznámka: Funkce, metoda, objekt nebo vlastnost popsaná v tomto tématu jsou zakázány, pokud je služba Microsoft Jet Expression Service spuštěna v režimu sandboxu, což brání vyhodnocení potenciálně nebezpečných výrazů. Další informace o režimu sandboxu najdete v nápovědě pro "režim sandboxu".
Vrátí celé číslo představující atributy souboru, adresáře nebo složky.
Syntaxe
GetAttr ( název_cesty )
Požadovaný název cestyArgument je Řetězcový výraz, který určuje název souboru. Název cesty může obsahovat adresář nebo složku a jednotku.
Návratové hodnoty
Hodnota vrácená funkcí GetAttr je součet následujících hodnot atributů:
|
Konstanta |
Value (Hodnota) |
Popis |
|
vbNormal |
0 |
Normální. |
|
vbReadOnly |
1 |
Jen pro čtení. |
|
vbHidden |
2 |
Skryté. |
|
vbSystem |
4 |
Systémový soubor. Není k dispozici v systému Macintosh. |
|
vbDirectory |
16 |
Adresář nebo složka. |
|
vbArchive |
32 |
Soubor se od posledního zálohování změnil. Není k dispozici v systému Macintosh. |
|
vbAlias |
64 |
Zadaný název souboru je alias. K dispozici pouze pro Macintosh. |
Poznámka: Tyto konstanty jsou určeny jazykem Visual Basic for Applications. Názvy se dají použít kdekoli v kódu místo skutečných hodnot.
Poznámky
Poznámka: Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications). Pokud chcete další informace o práci s modulem VBA, vyberte Referenční informace pro vývojáře, které najdete v rozevíracím seznamu vedle položky Hledat a do vyhledávacího pole napište požadované pojmy.
Chcete-li zjistit, které atributy jsou nastaveny, pomocí operátoru And proveďte Bitové porovnávání hodnoty vrácené funkcí GetAttr a hodnoty jednotlivého atributu souboru, který chcete. Pokud výsledek není nula, nastaví se tento atribut pro pojmenovaný soubor. Například návratová hodnota následujícího výrazu And je nulová, pokud není nastavený atribut Archive:
Result = GetAttr(FName) And vbArchive
Pokud je nastaven atribut Archive, vrátí se nenulová hodnota.
Příklad
Tento příklad používá funkci GetAttr k určení atributů souboru a adresáře nebo složky. V systému Macintosh jsou k dispozici pouze konstanty vbNormal, vbReadOnly, vbHidden a vbAlias.
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.
