Funkcja FileAttr

Dotyczy
Access dla Microsoft 365 Access 2021 Access 2019 Access 2016

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 wartość długą odpowiadającą trybowi pliku dla plików otwieranych za pomocą instrukcji Open .

Składnia

FileAttr(numer_pliku;zwracany typ)

W składni funkcji FileAttr występują następujące argumenty:

Argumenty argumentów Opis
numer_pliku Argument wymagany. Liczba całkowita. Dowolny prawidłowy numer pliku.
returntype (zwracany_typ) Argument wymagany. Liczba całkowita. Liczba wskazująca typ informacji do zwrócenia. Określ wartość 1, aby zwrócić wartość wskazującą tryb pliku. Tylko w systemach 16-bitowych określ wartość 2, aby pobrać dojście do pliku systemu operacyjnego. Typ zwracany 2 nie jest obsługiwany w systemach 32-bitowych i powoduje błąd.

Wartości zwracane

Gdy argument returntypema wartość 1, następujące zwracane wartości wskazują tryb dostępu do pliku:

Tryb Wartość
Wprowadzanie danych 1
Dane wyjściowe 2
Losowe 4
Dołączająca 8
Plik binarny 32

Przykład

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.

W tym przykładzie użyto funkcji FileAttr w celu zwrócenia trybu pliku i dojścia do otwartego pliku. Uchwyt pliku jest zwracany tylko w systemach 16-bitowych; W systemach 32-bitowych przekazanie liczby 2 jako drugiego argumentu powoduje błąd.

Dim FileNum, Mode, Handle
FileNum = 1    ' Assign file number.
Open "TESTFILE" For Append As FileNum    ' Open file.
Mode = FileAttr(FileNum, 1) ' Returns 8 (Append file mode).
Handle = FileAttr(FileNum, 2) ' Returns file handle.
Close FileNum    ' Close file.