Obs!: Funksjonen, metoden, objektet eller egenskapen som beskrives i dette emnet, er deaktivert hvis Microsoft Jet Expression Service kjører i sandkassemodus, noe som forhindrer evaluering av potensielt usikre uttrykk. Hvis du vil ha mer informasjon om sandkassemodus, kan du søke etter «sandkassemodus» i Hjelp.
Returnerer en lang verdi som representerer filmodusen for filer som åpnes ved hjelp av Open-setningen .
Syntaks
FileAttr ( filenumber , returntype )
Syntaksen for funksjonen FileAttr har følgende argumenter:
Argument |
Beskrivelse |
imtall |
Obligatorisk. Heltall. Alle gyldige filnummer. |
returntype |
Obligatorisk. Heltall. Tall som angir hvilken type informasjon som skal returneres. Angi 1 for å returnere en verdi som angir filmodus. Bare på 16-biters systemer angir du 2 for å hente et operativsystemfilhåndtak. returntype 2 støttes ikke i 32-biters systemer og forårsaker en feil. |
Returner verdier
Når returtypenargument er 1, angir følgende returverdier filtilgangsmodus:
Modus, |
Value |
Inndata |
1 |
Utdata |
2 |
Tilfeldig |
4 |
Tilføying |
8 |
Binær |
32 |
Eksempel
Obs!: I eksemplene nedenfor vises bruken av denne funksjonen i en VBA-modul (Visual Basic for Applications). Hvis du vil ha mer informasjon om hvordan du arbeider med VBA, velger du Utviklerreferanse fra rullegardinlisten ved siden av Søk og skriver inn ett eller flere søkeord i søkeboksen.
Dette eksemplet bruker FileAttr-funksjonen til å returnere filmodus og filhåndtak for en åpen fil. Filhåndtaket returneres bare på 16-biters systemer. på 32-biters systemer genererer overføring av 2 som et andre argument en feil.
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.