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“.
Tagastab väärtuse Pikk, mis tähistab open-lausega avatud failide failirežiimi.
Süntaks
FileAttr ( failinumber , tagastustüüp )
Funktsiooni FileAttr süntaksil on järgmised argumendid.
|
Argument |
Kirjeldus |
|
filenumber |
Nõutav. Täisarv. Mis tahes sobiv failinumber. |
|
tagastustüüp |
Nõutav. Täisarv. Arv, mis näitab tagastatava teabe tüüpi. Failirežiimile osutava väärtuse tagastamiseks määrake väärtus 1. Ainult 16-bitistes süsteemides määrake operatsioonisüsteemi failipideme toomiseks 2. returntype 2 pole 32-bitistes süsteemides toetatud ja põhjustab tõrke. |
Tagastusväärtused
Kui tagastustüüpargument on 1, näitavad järgmised tagastusväärtused failijuurdepääsurežiimi:
|
Mood |
Value (Väärtus) |
|
Sisend |
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 tagastatakse funktsiooni FileAttr abil avatud faili failirežiim ja -pide. Failipide tagastatakse ainult 16-bitistes süsteemides; 32-bitistes süsteemides genereerib arvu 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.
