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 Lang, der repræsenterer filtilstanden for filer, der åbnes ved hjælp af Open-sætningen .
Syntaks
FileAttr ( filenumber ; returntype )
Syntaksen for funktionen FileAttr har disse argumenter:
Argument |
Beskrivelse |
filnummer |
Påkrævet. Heltal. Alle gyldige filnummer. |
returntype |
Påkrævet. Heltal. Tal, der angiver typen af oplysninger, der skal returneres. Angiv 1 for at returnere en værdi, der angiver filtilstanden. På kun 16-bit systemer skal du angive 2 for at hente et filhåndtag til operativsystemet. returntype 2 understøttes ikke i 32-bit systemer og forårsager en fejl. |
Returværdier
Når returntype -argument er 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. Filhandles returneres kun på 16-bit systemer. på 32-bit systemer, der videregiver 2 som et 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.