Funktionen FileAttr

Vigtigt: Denne artikel er maskinoversat. Se ansvarsfraskrivelsen. Du kan finde den engelske version af denne artikel her til din orientering.

Bemærk: Den funktion, metode, objekt eller egenskab, der er beskrevet i dette emne er deaktiveret, hvis Microsoft Jet Expression Service kører i sandkassetilstand, hvilket forhindrer evaluering af potentielt usikre udtryk. Du kan finde flere oplysninger om sandkassetilstand, søge efter "sandkassetilstand" i Hjælp.

Returnerer en langt heltal, der repræsenterer filtilstanden for filer, som åbnes med sætningen Open .

Syntaks

FileAttr ( filnummer , returtype )

Syntaksen for funktionen FileAttr har følgende argumenter:

Argument

Beskrivelse

filnummer

Der er påkrævet. Heltal. En hvilken som helst gyldigt filnummer.

returtype

Påkrævet. Heltal. Tal, der angiver den type oplysning, som skal returneres. Angiv 1 for at returnere en værdi, der angiver filtilstanden. Kun på 16-bit-systemer skal du angive 2 for at hente operativsystemfilhandler. returtype 2 understøttes ikke i 32-bit-systemer og medfører en fejl.

Returværdier

Hvis returtype-argument er 1, angiver følgende returværdier filadgangstilstanden:

Tilstand

Værdi

Input

1

Output

2

Vilkårlig

4

Tilføjelsesforespørgsel

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 anvendes funktionen FileAttr til at returnere filtilstanden og filhandleren for en åben fil. Filhandleren returneres kun på 16-bit-systemer. På 32-bit-systemer genereres der en fejl, hvis der angives 2 som det andet argument.

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.

Bemærk: Ansvarsfraskrivelse for maskinoversættelse: Denne artikel er blevet oversat af et computersystem uden menneskelig indgriben. Microsoft tilbyder disse maskinoversættelse for at hjælpe ikke-engelsktalende brugere til at kunne nyde indhold om Microsofts produkter, tjenester og teknologier. Da artiklen er maskinoversat, kan den indeholde forkerte ord eller syntaks- eller grammatikfejl.

Del Facebook Facebook Twitter Twitter Mail Mail

Var disse oplysninger nyttige?

Fantastisk! Har du mere feedback?

Hvordan kan vi forbedre det?

Tak for din feedback!

×