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 sveikasis skaičius , nurodantis failo, katalogo arba aplanko atributus.
Sintaksė
GetAttr ( kelio pavadinimas )
Būtinas pathnameargumentas yra eilutės išraiška, nurodantis failo vardą. Kelio pavadinimas gali apimti katalogą arba aplanką ir diską.
Pateikti reikšmes
GetAttr grąžinta reikšmė yra šių atributų reikšmių suma:
|
Konstanta |
Reikšmė |
Aprašas |
|
vbNormalus |
0 |
Normalus. |
|
vbReadOnly |
1 |
Tik skaitoma. |
|
vbHidden |
2 |
Paslėptų. |
|
vbSystem |
4 |
Sistemos failas. Negalima naudoti Macintosh. |
|
vbDirectory |
16 |
Katalogas arba aplankas. |
|
vbArchive |
32 |
Po paskutinės atsarginės kopijos failas pasikeitė. Negalima naudoti Macintosh. |
|
vbAlias |
64 |
Nurodytas failo vardas yra pseudonimas. Galima tik Macintosh. |
Pastaba: Šias konstantas nurodo "Visual Basic for Applications". Pavadinimus galima naudoti bet kurioje kodo vietoje faktinių reikšmių.
Pastabos
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ų.
Norėdami nustatyti, kurie atributai yra nustatyti, naudokite operatorių And , kad atliktumėte lyginimas pabičiui funkcijos GetAttr grąžinamos reikšmės ir norimo atskiro failo atributo reikšmę. Jei rezultatas nėra nulis, tas atributas nustatomas įvardytam failui. Pavyzdžiui, reiškinio And grąžinama reikšmė yra nulis, jei nenustatytas atributas Archive:
Result = GetAttr(FName) And vbArchive
Jei nustatyta atributo Archive reikšmė, grąžinama nenustatyta reikšmė.
Pavyzdys
Šiame pavyzdyje naudojama funkcija GetAttr , kad būtų nustatyti failo ir katalogo arba aplanko atributai. Macintosh galima naudoti tik konstantas vbNormal, vbReadOnly, vbHidden ir vbAlias.
Dim MyAttr' Assume file TESTFILE has hidden attribute set.MyAttr = GetAttr("TESTFILE") ' Returns 2.' Returns nonzero if hidden attribute is ' set on TESTFILE.Debug.Print MyAttr And vbHidden ' Assume file TESTFILE has hidden and ' read-only attributes set.MyAttr = GetAttr("TESTFILE") ' Returns 3.' Returns nonzero if hidden attribute is ' set on TESTFILE.Debug.Print MyAttr And (vbHidden + vbReadOnly) ' Assume MYDIR is a directory or folder.MyAttr = GetAttr("MYDIR") ' Returns 16.
