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.

Potřebujete další pomoc?

Chcete další možnosti?

Prozkoumejte výhody předplatného, projděte si školicí kurzy, zjistěte, jak zabezpečit své zařízení a mnohem více.

Komunity vám pomohou klást otázky a odpovídat na ně, poskytovat zpětnou vazbu a vyslechnout odborníky s bohatými znalostmi.