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)
Povinný argument pathnameje ř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ů:
| Konstantní | 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 jazyk Visual Basic for Application. 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, použijte operátor And k provedení bitové porovná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.