Funktsioon FileAttr

Märkus. : Selles teemas kirjeldatud funktsioon, meetod, objekt või atribuut keelatakse, kui teenus Microsoft Jet Expression Service töötab "liivakastirežiimis", mis takistab potentsiaalselt ohtlike avaldiste hindamist. Lisateavet "liivakastirežiimi" kohta leiate spikrist (märksõnaga "sandbox mode").

Tagastab väärtuse, mille tüüp on pikk andmetüüp ja mis tähistab Open-klausli abil avatud failide režiimi.

Süntaks

FileAttr(failinumber, tagastustüüp)

Funktsiooni FileAttr süntaksil on järgmised argument.

Argument

Kirjeldus

failinumber

Nõutav. Täisarvuline andmetüüp andmetüüp Täisarv. Suvaline kehtiv failinumber.

tagastustüüp

Nõutav. Täisarvuline andmetüüp Integer. Arv, mis määrab tagastatava teabe tüübi. Failirežiimi tähistava väärtuse tagastamiseks määrake väärtuseks 1. 16-bitistes süsteemides määrake opsüsteemi failipideme toomiseks argumendi väärtuseks 2. 32-bitised süsteemid ei toeta tagastustüüpi 2 ning selle väärtuse valimine põhjustab tõrke.

Tagastusväärtused

Kui tagastustüübiargument on 1, tähistavad järgmised tagastusväärtused faili juurdepääsurežiimi.

Režiim

Väärtus

Sisend

1

Väljund

2

Juhuslik

4

Lisamine

8

Binaarne

32

Näide

Märkus. : Järgnevad näited on selle kohta, kuidas seda funktsiooni rakenduse Visual Basic for Applications (VBA) moodulis kasutada. Lisateavet VBA-ga töötamise kohta leiate, kui valite käsu Otsi kõrval olevast ripploendist valiku Arendaja viide ning sisestate otsinguväljale ühe või mitu sõna.

Näites kasutatakse funktsiooni FileAttr avatud faili failirežiimi ja failipideme tagastamiseks. Failipide tagastatakse ainult 16-bitistes süsteemides. 32-bitistes süsteemides põhjustab väärtuse 2 edastamine teise argumendina tõrke.

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.
Täiendage oma oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liituge Office Insideri programmiga

Kas sellest teabest oli abi?

Täname tagasiside eest!

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

×