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, HandleFileNum = 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.
