Funkcija GetAttr

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 novērš potenciāli nedrošu izteiksmju novērtējumu. Lai iegūtu papildinformāciju par smilškastes režīmu, sadaļā Palīdzība meklējiet "smilškastes režīms".

Atgriež veselu skaitli , kas attēlo faila, direktorija vai mapes atribūtus.

Sintakse

GetAttr ( ceļa _ nosaukums )

arguments obligāts ir virknes izteiksme, kas norāda faila nosaukumu. Ceļa nosaukums var iekļaut direktoriju vai mapi un disku.

Atgriežamās vērtības

GetAttr atgrieztā vērtība ir šādu atribūtu vērtību summa:

Konstante

Vērtība

Apraksts

vbNormal

0

Normālu.

vbReadOnly

1

Tikai lasāms.

vbHidden

2

Paslēptās.

vbSystem

4

Sistēmas fails. Nav pieejama Macintosh datorā.

vbDirectory

16

Direktorijs vai mape.

vbArchive

32

Fails ir mainīts pēc pēdējā dublējuma. Nav pieejama Macintosh datorā.

vbAlias

64

Norādītais faila nosaukums ir aizstājvārds. Pieejams tikai Macintosh datorā.


Piezīme.: Šīs konstantes ir norādītas programmā Visual Basic for Applications. Nosaukumus var lietot jebkur kodā reālo 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 salīdzināšana bitu līmenī, kā arī vajadzīgā atsevišķa faila atribūta vērtību. Ja rezultāts nav nulle, šis atribūts ir iestatīts uz nosaukto failu. Piemēram, tālāk norādītās un izteiksmes atgriežamā vērtība ir nulle, ja nav iestatīts arhīva atribūts:

Result = GetAttr(FName) And vbArchive

Ja ir iestatīts arhīva atribūts, tiek atgriezta vērtība, kas nav nulle.

Piemērs

Šajā piemērā funkcija GetAttr tiek izmantota, 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.

Vai nepieciešama papildu palīdzība?

Paplašiniet savas Office prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Office Insider programmai

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka jums varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta speciālistiem.

×