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) |
Description (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.