Funktionen FileAttr

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ärderingen av potentiellt osäkra uttryck. Om du vill ha mer information om begränsat läge söker du efter "begränsat läge" i hjälpen.

Returnerar ett Long-uttryck som representerar filläget för filer som öppnas med hjälp av satsen Open.

Syntax

FileAttr ( filenumber , returntype )

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

Argument

Beskrivning

räknare

Obligatoriskt. Heltal. Alla giltiga filnummer.

returtyp

Obligatoriskt. Heltal. Tal som anger vilken typ av information som ska returneras. Ange 1 för att returnera ett värde som anger filläget. På endast 16-bitarssystem anger du 2 för att hämta ett filhandtag för operativsystemet. returntype 2 stöds inte i 32-bitarssystem och orsakar ett fel.

Returvärden

När returtypen ärargument 1 anger följande returvärden åtkomstläget:

Läge

Värde

Inmatning

1

Output

2

Slumpmässigt

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.

I det här exemplet används funktionen FileAttr för att returnera filläget och filhandtaget för en öppen fil. Filhandtaget returneras endast på 16-bitarssystem. på 32-bitarssystem som passerar 2 när ett andra argument genererar 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.

Behöver du mer hjälp?

Utöka dina Office-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.

×