Obs!
Funksjonen, metoden, objektet eller egenskapen som er beskrevet i dette emnet, er deaktivert hvis Microsoft Jet Expression-tjenesten 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 hjelpen.
Returnerer et langt som representerer filmodusen for filer som er åpnet ved hjelp av Open-setningen.
Syntaks
FilAttr(filnummer;returtype)
Syntaksen for funksjonen FileAttr har disse argumentene:
| Argumenter | Beskrivelse |
|---|---|
| filnummer | Obligatorisk. Heltall. Et hvilket som helst gyldig filnummer. |
| returntype | Obligatorisk. Heltall. Tall som angir typen informasjon som skal returneres. Angi 1 for å returnere en verdi som angir filmodus. Angi 2 for å hente en filreferanse for operativsystemet bare på 16-biters systemer. ReturnType 2 støttes ikke i 32-biters systemer og forårsaker en feil. |
Returverdier
Når returtype-argumenteter 1, angir følgende returverdier filtilgangsmodusen:
| Modus | Verdi |
|---|---|
| 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 filmodusen og filreferansen til en åpen fil. Filreferansen returneres bare på 16-biters systemer. Hvis 2 sendes som et andre argument på 32-biters systemer, genereres det 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.