Funktsioon FileAttr

Märkus.: Kui Microsoft Jet Expression Service töötab liivakastirežiimis, mis takistab potentsiaalselt ebaturvaliste avaldiste väärtustamist, on käesolevas artiklis kirjeldatud funktsioon, meetod, objekt või atribuut keelatud. Liivakastirežiimi kohta lisateabe saamiseks otsige spikrist sõna „liivakastirežiim“.

Annab tulemuseks pika faili, mis tähistab avatud lausega avatud failide failimahtu.

Süntaks

FileAttr ( filenumber ; returntype )

Funktsiooni FileAttr süntaksil on järgmised argumendid.

Argument

Kirjeldus

filenumber

Nõutav. Täisarv. Mis tahes sobiv failinumber.

returntype

Nõutav. Täisarv. Arv, mis näitab tagastatava teabe tüüpi. Määrake väärtus 1, et tagastada väärtus, mis näitab faili režiimi. Ainult 16-bitistel süsteemidel Määrake 2, et hankida operatsioonisüsteemi failimanuse pide. returntype 2 ei toeta 32-bitistes süsteemides ja põhjustab tõrke.

Tagastusväärtused

Kui returntypeargument on 1, viitavad järgmised tagastatavad väärtused failidele juurdepääsu režiimile.

Mood

Väärtus

Sisestuskeel

1

Väljund

2

Juhuslik

4

lisamine;

8

Binaarväärtus

32

Näide

Märkus.: Järgmised näited kujutavad selle funktsiooni kasutamist rakenduse Visual Basic for Applications (VBA) moodulis. Lisateabe saamiseks VBA-ga töötamise kohta valige välja Otsing kõrval kuvatavast ripploendist väärtus Tootearendusmaterjal ja sisestage otsinguväljale üks või mitu sõna.

Selles näites kasutatakse funktsiooni FileAttr , et tagastada avatud failis olevad failid ja failid. Failid edastatakse ainult 16-bitises süsteemis. 32-bitistel süsteemidel, 2 teise argumendina sooritatakse tõrge.

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.

Kas vajate veel abi?

Täiendage Office'i kasutamise oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liituge Office Insideri programmiga

Kas sellest teabest oli abi?

Täname tagasiside eest! Tundub, et võiksime teid kokku viia ühega meie Office'i tugiagentidest, kes aitab teil probleemi lahendada.

×