Prisijunkite prie „Microsoft“
Prisijunkite arba sukurkite paskyrą.
Sveiki,
Pasirinkti kitą paskyrą.
Turite kelias paskyras
Pasirinkite paskyrą, kurią naudodami norite prisijungti.

Pastaba: Šioje temoje aprašyta funkcija, metodas, objektas arba ypatybė yra išjungta, jei "Microsoft Jet Expression Service" veikia smėlio dėžės režimu, kuris neleidžia įvertinti galimai nesaugių reiškinių. Jei reikia daugiau informacijos apie smėlio dėžės režimą, žinyne ieškokite "smėlio dėžės režimas".

Pateikia ilgą skaičių, reiškiantį failų, atidarytų naudojant sakinį Open , režimą.

Sintaksė

FileAttr ( failo numeris , returntype )

Funkcijos FileAttr sintaksė turi tokius argumentus:

Argumentas

Aprašas

failo numeris

Būtinas. Sveikasis skaičius. Bet kuris galiojantis failo numeris.

grįžties tipas

Būtinas. Sveikasis skaičius. Skaičius, nurodantis grąžinamos informacijos tipą. Nurodykite 1, kad būtų pateikta reikšmė, nurodanti failo režimą. Tik 16 bitų sistemose nurodykite 2, kad gautumėte operacinės sistemos failų rankenėlę. 2 returntype nepalaikomas 32 bitų sistemose ir sukelia klaidą.

Pateikti reikšmes

Kai returntypeargumentas yra 1, šios grąžinamos reikšmės nurodo failo prieigos režimą:

Moda

Reikšmė

Įvestis

1

Išvestis

2

Atsitiktinis

4

Papildymo

8

Dvejetainis

32

Pavyzdys

Pastaba: Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.

Šiame pavyzdyje funkcija FileAttr naudojama failo režimui ir atidaryto failo sisteminei nuorodai pateikti. Failo rankenėlė grąžinama tik 16 bitų sistemose; 32 bitų sistemose, 2 perdavimas kaip antrasis argumentas generuoja klaidą.

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.

Reikia daugiau pagalbos?

Norite daugiau parinkčių?

Sužinokite apie prenumeratos pranašumus, peržiūrėkite mokymo kursus, sužinokite, kaip apsaugoti savo įrenginį ir kt.

Bendruomenės padeda užduoti klausimus ir į juos atsakyti, pateikti atsiliepimų ir išgirsti iš ekspertų, turinčių daug žinių.

Ar ši informacija buvo naudinga?

Ar esate patenkinti kalbos kokybe?
Kas turėjo įtakos jūsų įspūdžiams?
Paspaudus mygtuką Pateikti, jūsų atsiliepimai bus naudojami tobulinant „Microsoft“ produktus ir paslaugas. Jūsų IT administratorius galės rinkti šiuos duomenis. Privatumo patvirtinimas.

Dėkojame už jūsų atsiliepimą!

×