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 izolovaného prostoru (sandbox), který znemožňuje vyhodnocení potenciálně nebezpečných výrazů. Další informace o režimu izolovaného prostoru vyhledáte zadáním dotazu "režim izolovaného prostoru" v nápovědě.
Vrátí celé číslo představující atributy souboru, adresáře nebo složky.
Syntaxe
GetAttr(název_cesty)
Povinným argumentem názvu cestyje řetězcový výraz, který určuje název souboru. Název cesty může obsahovat adresář nebo složku a jednotku.
Vrácené hodnoty
Hodnota vrácená funkcí GetAttr je součtem následujících hodnot atributů:
| Konstanta | Hodnota | Popis |
|---|---|---|
| vbNormal | 0 | Normální. |
| vbReadOnly | 1 | Jen pro čtení. |
| vbHidden | 2 | Skryté. |
| vbSystem | 4 | Systémový soubor. Není k dispozici na počítačích Macintosh. |
| vbDirectory | 16 | Adresář nebo složka. |
| vbArchive | 32 | Soubor se od posledního zálohování změnil. Není k dispozici na počítačích Macintosh. |
| vbAlias | 64 | Zadaný název souboru je alias. K dispozici pouze na počítačích Macintosh. |
Poznámka
Tyto konstanty určuje jazyk jazyk Visual Basic for Application. Názvy lze 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.
Pokud chcete zjistit, které atributy jsou nastavené, použijte operátor And k provedení bitového porovnání hodnoty vrácené funkcí GetAttr a hodnoty jednotlivých požadovaných atributů souboru. Pokud výsledek není nulový, nastaví se tento atribut pro pojmenovaný soubor. Například vrácená hodnota následujícího výrazu And je nula, pokud není nastavený atribut Archive:
Result = GetAttr(FName) And vbArchive
Pokud je nastavený atribut Archive, vrátí se nenulová hodnota.
Příklad
V tomto příkladu se funkce GetAttr používá k určení atributů souboru, adresáře nebo složky. Na počítačích Macintosh jsou dostupné 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.