Uwaga: Funkcja, metoda, obiekt lub właściwość opisana w tym temacie jest wyłączona, jeśli usługa wyrażeń programu Microsoft Jet działa w trybie piaskownicy, co uniemożliwia ocenę 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 nazwaargument to wyrażenie tekstowe określająca nazwę pliku. Nazwa ścieżki może zawierać katalog lub folder i dysk.
Zwracane wartości
Wartość zwrócona przez program GetAttr jest sumą następujących wartości atrybutów:
|
Stała |
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. |
|
vbArchive |
32 |
Plik zmienił się od czasu ostatniej kopii zapasowej. Niedostępne na komputerze Macintosh. |
|
vbAlias |
64 |
Określona nazwa pliku to alias. Dostępne tylko na komputerze Macintosh. |
Uwaga: Te stałe są określone w języku Visual Basic for Applications. Nazw można używać w dowolnym miejscu kodu w miejscu wartości rzeczywistych.
Spostrzeżenia
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, użyj operatora And w celu wykonania porównanie bitowe wartości zwróconej przez funkcję GetAttr i wartości pojedynczego atrybutu pliku, który ma zostać zwrócony. Jeśli wynik nie jest zerem, ten atrybut jest ustawiany dla nazwanego pliku. Jeśli na przykład atrybut Archiwum nie jest ustawiony, zwracana wartość następującego wyrażenia And jest równa zero:
Result = GetAttr(FName) And vbArchive
Jeśli atrybut Archiwum jest ustawiony, zwracana jest wartość niezerowa.
Przykład
W tym przykładzie do określenia atrybutów pliku i katalogu lub folderu jest używana funkcja GetAttr. 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.
