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-värde som representerar filläget för filer som öppnas med open-instruktionen .
Syntax
FileAttr ( filenumber , returntype )
Syntaxen för funktionen FileAttr har följande argument:
|
Argument |
Beskrivning |
|
filenumber |
Obligatoriskt. Heltal. 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 operativsystemfilhandtag. returntype 2 stöds inte i 32-bitarssystem och orsakar ett fel. |
Returvärden
När returntype -argument är 1 anger följande returvärden filåtkomstläge:
|
Läge |
Value (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. i 32-bitarssystem genereras ett fel om du skickar 2 som ett andra argument.
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.
