Applies ToAccess dla Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

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: Te stałe są określane przez język 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.

Potrzebujesz dalszej pomocy?

Chcesz uzyskać więcej opcji?

Poznaj korzyści z subskrypcji, przeglądaj kursy szkoleniowe, dowiedz się, jak zabezpieczyć urządzenie i nie tylko.

Społeczności pomagają zadawać i odpowiadać na pytania, przekazywać opinie i słuchać ekspertów z bogatą wiedzą.