Uwaga
Funkcja, metoda, obiekt lub właściwość opisane w tym temacie są wyłączone, jeśli usługa wyrażeń Microsoft Jet działa w trybie piaskownicy, co uniemożliwia ocenę potencjalnie niebezpiecznych wyrażeń. Aby uzyskać więcej informacji o trybie piaskownicy, wyszukaj termin "tryb piaskownicy" w Pomocy.
Zwraca liczbę całkowitą reprezentującą atrybuty pliku, katalogu lub folderu.
Składnia
GetAttr(ścieżka)
Argument wymaganej nazwy ścieżkijest wyrażeniem ciągu określającym nazwę pliku. Nazwa ścieżki może zawierać katalog lub folder i dysk.
Wartości zwracane
Funkcja GetAttr zwraca sumę następujących wartości atrybutów:
| Stała | Wartość | Opis |
|---|---|---|
| vbNormal (Normalny) | 0 | Normalne. |
| vbReadOnly | 1 | Tylko do odczytu. |
| vbHidden | 2 | Ukryte. |
| System VB: | 4 | Plik systemowy. Niedostępne na komputerach Macintosh. |
| vbDirectory | 16 | Katalog lub folder. |
| vbArchive | 32 | Plik uległ zmianie od czasu ostatniej kopii zapasowej. Niedostępne na komputerach Macintosh. |
| vbAlias (Alias) | 64 | Podana nazwa pliku jest aliasem. Dostępne tylko na komputerach Macintosh. |
Uwaga
Te stałe są określone przez język Visual Basic for Applications. Nazwy mogą być używane w dowolnym miejscu kodu zamiast rzeczywistych wartości.
Uwagi
Uwaga
Poniższe przykłady przedstawiają sposób użycia tej funkcji w module języka Visual Basic for Applications (VBA). Aby uzyskać dodatkowe informacje na temat pracy w języku VBA, wybierz pozycję Dokumentacja dewelopera z listy rozwijanej obok przycisku Wyszukaj i wprowadź odpowiednie terminy w polu wyszukiwania.
Aby ustalić, które atrybuty są ustawione, należy użyć operatora And w celu przeprowadzenia porównania bitowego wartości zwróconej przez funkcję GetAttr z wartością wybranego pojedynczego atrybutu pliku. Jeśli wynik jest różny od zera, ten atrybut jest ustawiany dla nazwanego pliku. Na przykład następujące wyrażenie And zwraca wartość 0, jeśli atrybut Archiwum nie jest ustawiony:
Result = GetAttr(FName) And vbArchive
Jeśli jest ustawiony atrybut Archiwum, zwracana jest wartość różna od zera.
Przykład
W tym przykładzie użyto funkcji GetAttr do określenia atrybutów pliku i katalogu lub folderu. Na komputerach Macintosh dostępne są tylko stałe vbNormal, vbReadOnly, vbHidden i 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.