FileAttr, funksjon

Viktig: Denne artikkelen er maskinoversatt, se ansvarsfraskrivelsen. Du finner den engelske versjonen av artikkelen her som referanse.

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

Returnerer et langt heltall som representerer filen modus for filer som er åpnet med Open -setningen.

Syntaks

FileAttr ( filnummer , returtype )

Syntaksen for FileAttr -funksjonen har disse argumentene:

Argument

Beskrivelse

filnummer

Obligatorisk. Heltall. En hvilken som helst gyldig filnummer.

returtype

Obligatorisk. Heltall. Tall som angir hva slags informasjon til å returnere. Angi 1 for å returnere en verdi som angir fil-modus. På 16-biters systemer, kan du angi 2 for å hente en operativsystem fyllhåndtaket. returtype 2 støttes ikke i 32-biters systemer og forårsaker en feil.

Returverdier

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

Modus

Verdi

Inndata

1

Utdata

2

Tilfeldig

4

Tilføying

8

Binær

32

Eksempel

Merknad: 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 brukes FileAttr -funksjonen til å returnere modus og fil håndtaket for en åpen fil. Du ikke fyllhåndtaket, returneres bare på 16-biters systemer. Bruk av 2 som det andre argumentet på 32-biters systemer genereres 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.

Merknad: Ansvarsfraskrivelse for maskinoversettelse: Denne artikkelen er oversatt av et datasystem i stedet for en oversetter. Microsoft tilbyr disse maskinoversettelsene slik at brukere som ikke snakker engelsk, får tilgang til innhold om Microsoft-produkter, -tjenester og –teknologier. Ettersom artikkelen er maskinoversatt, kan den inneholde feil i vokabular, syntaks eller grammatikk.

Utvid ferdighetene dine
Utforsk opplæring
Vær først ute med de nye funksjonene
Bli med i Office Insiders

Var denne informasjonen nyttig?

Takk for tilbakemeldingen!

Takk for tilbakemeldingen! Det høres ut som det kan være lurt å sette deg i kontakt med én av våre Office-kundestøtteagenter.

×