Zobrazit vše

Skrýt vše

Vrátí hodnotu typu Integer představující atributy souboru, adresáře nebo složky.

Syntaxe

GetAttr(cesta)

Povinným argumentem (Argument: Hodnota, která poskytuje informace určité akci, události, metodě, vlastnosti, funkci nebo proceduře.) cesta je řetězcový výraz  určující název souboru. Argument cesta může zahrnovat adresář či složku a jednotku.

Návratové hodnoty

Hodnota vrácená funkcí GetAttr je dána součtem následujících hodnot atributů:

 Poznámka:   Tyto konstanty (Konstanta: Hodnota, která se nevypočítává, a proto ani nemění. Konstanta je například číslo 210 a text Čtvrtletní příjmy. Výraz nebo výsledná hodnota výrazu není konstanta.) jsou určeny jazykem Visual Basic for Applications a jejich názvy lze použít místo skutečných hodnot kdekoli v kódu.

Poznámky

 Poznámka:   Následující příklady uvádějí použití této funkce v modulu jazyka Visual Basic for Applications (VBA). Další informace o práci s jazykem VBA získáte tak, že klepnete na položku Referenční informace pro vývojáře v rozevíracím seznamu vedle pole Hledat a do pole pro hledání zadáte jeden nebo více pojmů.

Chcete-li zjistit, které atributy jsou nastaveny, proveďte pomocí operátoru And bitové porovnání (Bitové porovnání: Postupné porovnání všech dvojic stejně umístěných bitů v hodnotách dvou číselných výrazů.) hodnoty vrácené funkcí GetAttr a hodnoty jednoho požadovaného atributu souboru. Pokud je výsledek nenulový, je daný atribut pro označený soubor nastaven. Návratová hodnota následujícího výrazu s operátorem And je například nulová, pokud není nastaven atribut vbArchive:

Result = GetAttr(FName) And vbArchive

		

Nenulová hodnota je vrácena v případě, že je atribut vbArchive nastaven.

Příklad

V tomto příkladu jsou pomocí funkce GetAttr zjištěny atributy souboru a adresáře či složky. V systému Macintosh jsou k dispozici pouze atributy 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.