Funktionen FileAttr

Viktigt!: Den här artikeln är maskinöversatt, se ansvarsfriskrivningen. Den engelska versionen av den här artikeln finns här för din referens.

Obs!: Funktionen, metoden, objektet eller egenskapen som beskrivs i det här avsnittet inaktiveras om Microsoft Jet Expression Service körs i begränsat läge, vilket förhindrar utvärdering av potentiellt osäkra uttryck. Mer information om begränsat läge söker du efter "begränsat läge" i hjälpen.

Returnerar ett datatypen Long som representerar filen läge för filer som öppnas med uttrycket Öppna .

Syntax

FileAttr ( filenumber , returntype )

Syntaxen för funktionen FileAttr har följande argument:

Argument

Beskrivning

filenumber

Obligatoriskt. Heltal. En giltig filnummer.

returnType

Obligatoriskt. Heltal. Tal som anger vilken typ av information ska returneras. Ange 1 för att returnera ett värde som anger läge en fil. Ange 2 för att hämta ett operativsystem fyllningshandtaget på 16-bitars system. returntype 2 stöds inte i 32-bitars system och orsakar ett fel.

Returnera värden

När returntypeargument är 1, anger returnerar följande värden vilket åtkomstläge som filen:

Läge

Värde

Indata

1

Utdata

2

Slumpmässiga

4

Lägg till

8

Binärt

32

Exempel

Obs!: I exemplen nedan visar vi hur du använder den här funktionen i en Visual Basic for Applications-modul (VBA). Om du vill läsa mer om hur man använder VBA, kan du välja Info för utvecklare i listrutan bredvid Sök och sedan skriva en eller flera söktermer i sökrutan.

Det här exemplet används funktionen FileAttr för att returnera fyllningshandtaget för läge och filen på en öppen fil. Fyllningshandtaget returneras bara på 16-bitars system. på 32-bitarsdatorer passerar 2 som andra argument uppstår ett fel.

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.

Obs!: Ansvarsfriskrivning för maskinöversättning: Den här artikeln har översatts av ett datorsystem utan mänsklig inblandning. Microsoft erbjuder dessa maskinöversättningar för att hjälpa icke engelskspråkiga användare att ta del av information om Microsofts produkter, tjänster och tekniker. Eftersom artikeln är maskinöversatt kan den innehålla fel i ordval, syntax och grammatik.

Utöka dina kunskaper
Utforska utbildning
Få nya funktioner först
Anslut till Office Insiders

Hade du nytta av den här informationen?

Tack för din feedback!

Tack för din feedback! Det låter som att det kan vara bra att koppla dig till en av våra Office-supportrepresentanter.

×