Piezīme
Šajā tēmā aprakstītā funkcija, metode, objekts vai rekvizīts ir atspējots, ja Microsoft Jet Expression Service darbojas smilškastes režīmā, kas neļauj novērtēt potenciāli nedrošas izteiksmes. Lai iegūtu papildinformāciju par smilškastes režīmu, meklējiet "smilškastes režīms" palīdzībā.
Atgriež veselu skaitli , kas apzīmē faila, direktorija vai mapes atribūtus.
Sintakse
GetAttr(ceļanosaukums)
Nepieciešamais ceļa nosaukumaarguments ir virknes izteiksme, kas norāda faila nosaukumu. Ceļa nosaukums var ietvert direktoriju vai mapi un disku.
Atgrieztās vērtības
GetAttr atgrieztā vērtība ir šādu atribūtu vērtību summa:
| Konstante | Vērtība | Apraksts |
|---|---|---|
| vbNormāls | 0 | Normāls. |
| vbTikai lasāms | 1 | Tikai lasāms. |
| vbHidden | 2 | Slēpts. |
| vbSystem | 4 | Sistēmas fails. Nav pieejams Macintosh datorā. |
| vbDirectory | 16 | Direktorijs vai mape. |
| vbArchive | 32 | Fails ir mainīts kopš pēdējās dublēšanas. Nav pieejams Macintosh datorā. |
| vbAlias | 64 | Norādītais faila nosaukums ir aizstājvārds. Pieejams tikai Macintosh datorā. |
Piezīme
Šīs konstantes norāda Visual Basic for Applications. Nosaukumus var izmantot jebkurā vietā kodā faktisko vērtību vietā.
Piezīmes
Piezīme
Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.
Lai noteiktu, kuri atribūti ir iestatīti, izmantojiet operatoru And , lai veiktu funkcijas GetAttr atgrieztās vērtības bitu salīdzinājumu ar vēlamā atsevišķā faila atribūta vērtību. Ja rezultāts nav nulle, nosauktajam failam tiek iestatīts šis atribūts. Piemēram, šīs izteiksmes And atgrieztā vērtība ir nulle, ja nav iestatīts atribūts Arhīvs:
Result = GetAttr(FName) And vbArchive
Vērtība, kas nav nulle, tiek atgriezta, ja ir iestatīts atribūts Arhīvs.
Piemērs
Šajā piemērā izmantota funkcija GetAttr , lai noteiktu faila un direktorija vai mapes atribūtus. Macintosh datorā ir pieejamas tikai konstantes vbNormal, vbReadOnly, vbHidden un 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.