Piezīme.: Šajā tēmā aprakstītā funkcija, metode, objekts vai rekvizīts tiek atspējots, ja Microsoft Jet Expression Service darbojas smilškastes režīmā, tā 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" sadaļā Palīdzība.
Atgriež Integer , kas attēlo faila, direktorija vai mapes atribūtus.
Sintakse
GetAttr ( ceļa_nosaukums )
Nepieciešamais ceļaarguments ir virknes izteiksme kas norāda faila nosaukumu. Ceļa nosaukumā var būt iekļauts direktorijs vai mape un diskdzinis.
Atgrieztās vērtības
GetAttr atgrieztā vērtība ir šādu atribūtu vērtību summa:
|
Konstante |
Vērtība |
Apraksts |
|
vbNormal |
0 |
Parasts. |
|
vbReadOnly |
1 |
Tikai lasāms. |
|
vbHidden |
2 |
Slēpts. |
|
vbSystem |
4 |
Sistēmas fails. Nav pieejams Macintosh datorā. |
|
vbDirectory |
16 |
Direktorijs vai mape. |
|
vbArchive |
32 |
Kopš pēdējās dublēšanas fails ir mainīts. 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 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 salīdzināšana bitu līmenīfunkcijas GetAttr atgriezto vērtību un atsevišķā nepieciešamā faila atribūta vērtību. Ja rezultāts nav nulle, šis atribūts ir iestatīts nosauktam failam. Piemēram, atgrieztā tālāk norādītās izteiksmes And vērtība ir nulle, ja arhīva atribūts nav iestatīts:
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.
