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 et langt heltus, der repræsenterer filtilstanden for filer, der åbnes ved hjælp af sætningen Åbn.
Syntaks
FileAttr (filenumber, returntype)
Syntaksen for funktionen FileAttr har disse argumenter:
Argument |
Beskrivelse |
filnummer |
Påkrævet. Heltal. Alle gyldige filnummer. |
returtype |
Påkrævet. Heltal. Tal, der angiver typen af oplysninger, der skal returneres. Angiv 1 for at returnere en værdi, der angiver filtilstanden. Kun på 16-bit systemer skal du angive 2 for at hente et filhåndtag i operativsystemet. Returntype 2 understøttes ikke i 32-bit systemer og medfører en fejl. |
Returværdier
Når returtypen erargument 1, angiver følgende returværdier filadgangstilstanden:
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.
I dette eksempel bruges funktionen FileAttr til at returnere filtilstanden og filhåndtaget for en åben fil. Filhåndtaget returneres kun på 16-bit systemer. på 32-bit systemer genererer 2 som andet argument 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.