Uwaga: Funkcja, metoda, obiekt lub właściwość opisana w tym temacie jest wyłączona, jeśli usługa wyrażeń Microsoft Jet działa w trybie piaskownicy, co uniemożliwia oszacowanie potencjalnie niebezpiecznych wyrażeń. Aby uzyskać więcej informacji na temat trybu piaskownicy, wyszukaj "tryb piaskownicy" w Pomocy.
Zwraca liczbę całkowitą reprezentującą atrybuty pliku, katalogu lub folderu.
Składnia
GetAttr ( nazwa_ścieżki )
Wymagana nazwa ścieżkiargument to wyrażenie tekstowe określająca nazwę pliku. Nazwa ścieżki może obejmować katalog lub folder oraz dysk.
Zwracane wartości
Wartość zwracana przez funkcję GetAttr jest sumą następujących wartości atrybutów:
|
Stała |
Value (Wartość) |
Opis |
|
vbNormal |
0 |
Normalne. |
|
vbReadOnly |
1 |
Tylko do odczytu. |
|
vbHidden |
2 |
Ukryte. |
|
vbSystem |
4 |
Plik systemowy. Niedostępne na komputerze Macintosh. |
|
vbDirectory |
16 |
Katalog lub folder. |
|
vbArchiwicz |
32 |
Plik zmienił się od ostatniej kopii zapasowej. Niedostępne na komputerze Macintosh. |
|
vbAlias |
64 |
Określona nazwa pliku to alias. Dostępne tylko na komputerze Macintosh. |
Uwaga: Stałe te są określane przez Visual Basic for Applications. Nazwy mogą być używane w dowolnym miejscu kodu w miejsce 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 określić, które atrybuty są ustawione, użyj operatora And w celu wykonania porównanie bitowe wartości zwróconej przez funkcję GetAttr oraz wartości odpowiedniego atrybutu pojedynczego pliku. Jeśli wynik nie jest równy zero, ten atrybut jest ustawiany dla nazwanego pliku. Na przykład wartość zwracana przez następujące wyrażenie And wynosi zero, jeśli atrybut Archiwum nie jest ustawiony:
Result = GetAttr(FName) And vbArchive
Wartość niezerową jest zwracana, jeśli ustawiono atrybut Archiwum.
Przykład
W tym przykładzie użyto funkcji GetAttr do określenia atrybutów pliku i katalogu lub folderu. Na komputerze 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.
