Bemærk!: Vi vil gerne give dig den mest opdaterede hjælp, så hurtigt vi kan, på dit eget sprog. Denne side er oversat ved hjælp af automatisering og kan indeholde grammatiske fejl og unøjagtigheder. Det er vores hensigt, at dette indhold skal være nyttigt for dig. Vil du fortælle os, om oplysningerne var nyttige for dig, nederst på denne side? Her er artiklen på engelsk så du kan sammenligne.
Bemærk!: Funktionen, metoden, objektet eller egenskaben, der er beskrevet i dette emne, deaktiveres, hvis Microsoft Jet Expression Service kører i sandkassetilstand, hvilket forhindrer evalueringen af potentielt usikre udtryk. Søg efter "sandkassetilstand" i Hjælp, hvis du vil have mere at vide om sandkassetilstand.
Returnerer en langt heltal, der repræsenterer filtilstanden for filer, som åbnes med sætningen Open .
Syntaks
FileAttr ( filnummer , returtype )
Syntaksen for funktionen FileAttr har følgende argumenter:
Argument | Beskrivelse |
---|---|
filnummer |
Der er påkrævet. Heltal. En hvilken som helst gyldigt filnummer. |
returtype |
Der er påkrævet. Heltal. Tal, der angiver typen oplysninger til at returnere. Angiv 1 for at returnere en værdi, der angiver filtilstanden. Kun 16-bit-systemer, Angiv 2 for at hente en operativsystem fyldhåndtaget. returtype 2 understøttes ikke i 32-bit-systemer og medfører en fejl. |
Returværdier
Når returtypeargument er 1, angiver følgende returværdier adgangstilstand fil:
Tilstand | Værdi |
---|---|
Input |
1 |
Output |
2 |
Tilfældig |
4 |
Tilføjelse |
8 |
Binær |
32 |
Eksempel
Bemærk!: Følgende eksempler demonstrerer brugen af denne funktion i et VBA-modul (Visual Basic for Applications). Hvis du vil have mere at vide om at arbejde med VBA, skal du vælge Udviklerreference på rullelisten ud for Søg og skrive ét eller flere ord i søgefeltet.
Dette eksempel bruges funktionen FileAttr til at returnere tilstand og fil fyldhåndtaget for en åben fil. Fyldhåndtaget returneres kun på 16-bit-systemer. på 32-bit systemer, der passerer 2 som det andet argument genererer en fejl.
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.