Obs!: Funksjonen, metoden, objektet eller egenskapen som er beskrevet i dette emnet, er deaktivert hvis Tjenesten Microsoft Jet Expression kjører i sandkassemodus, noe som hindrer evaluering av potensielt usikre uttrykk. Hvis du vil ha mer informasjon om sandkassemodus, kan du søke etter «sandkassemodus» i Hjelp.

Returnerer en lang som representerer filmodus for filer som åpnes ved hjelp av Open-setningen.

Syntaks

FileAttr ( filenumber , returntype )

Syntaksen for FileAttr har disse argumentene:

Argument

Beskrivelse

filnummer

Obligatorisk. Heltall. Alle gyldige filnummer.

returtype

Obligatorisk. Integer. Tall som angir typen informasjon som skal returneres. Angi 1 for å returnere en verdi som angir filmodus. Angi 2 for å hente et filhåndtak for operativsystemet på bare 16-biters systemer. returntype 2 støttes ikke i 32-biters systemer og forårsaker en feil.

Returverdier

Når returtypenargument 1, angir følgende returverdier filtilgangsmodus:

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 filmodus og filhåndtak for en åpen fil. Filhåndtaket returneres bare på 16-biters systemer. i 32-biters systemer genereres en feil hvis 2 passering av 2 som andre argument genereres.

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.

Trenger du mer hjelp?

Utvid ferdighetene dine

Utforsk opplæring >

Vær først ute med de nye funksjonene

BLI MED I MICROSOFT INSIDERS >

Var denne informasjonen nyttig?

Hvor fornøyd er du med språkkvaliteten?
Hva påvirket opplevelsen din?

Takk for tilbakemeldingen!

×