GetAttr apraksts
Atgriež veselu skaitli, kas apzīmē faila, mapes vai direktorija atribūtus.
Vienkārši GetAttr piemēri
12 | MsgBox GetAttr ("C: \")MsgBox GetAttr ("D: \ Test.txt") |
Tas atgriezīs veselu skaitli atbilstoši faila/mapes/diska iestatījumiem.
Ja ceļa nosaukums neeksistē, radīsies izpildlaika kļūda “53”: fails nav atrasts.
GetAttr sintakse
VBA redaktorā varat ierakstīt “GetAttr (”), lai redzētu funkcijas GetAttr sintaksi:
Funkcija GetAttr satur šādu argumentu:
PathName: Virknes izteiksme, kas apzīmē failu/mapi/disku.
Atgriezt vērtības
Atgrieztā vērtībaGetAttr ir šādu atribūtu vērtību summa:
Pastāvīga | Vērtība | Apraksts |
---|---|---|
vbNormāli | 0 | Normāli. |
vbReadOnly | 1 | Tikai lasīt. |
vbSlēpts | 2 | Slēpts. |
vbSystem | 4 | Sistēmas fails. Nav pieejams Macintosh. |
vbDirectory | 16 | Katalogs vai mape. |
vbArhīvs | 32 | Kopš pēdējās dublēšanas datne ir mainījusies. Nav pieejams Macintosh. |
vbAlias | 64 | Norādītais faila nosaukums ir aizstājvārds. Pieejams tikai Macintosh. |
Excel VBA GetAttr funkcijas piemēri
1 | MsgBox GetAttr ("C: \ Program Files (x86)") |
1 | MsgBox GetAttr ("C: \") |
Testējot ar dažādām mapēm/failiem/diskdziņiem, tiks atgriezti dažādi skaitļi, piemēram, 1, 2, 5, 22 un tā tālāk.
Piemēram, 22 gadījumā tas nozīmē vbDirectory (16) + vbSystem (4) + vbSlēpts (2).
Lai iegūtu katram skaitlim atbilstošus atribūtu iestatījumus, varat izmantot šādu funkciju.
12345678910111213 | Funkcija GetAttributeSettings (attr As VbFileAttribute) Kā virkneDim strSettings As StringstrSettings = ""Ja (attr Un vbDirectory) = vbDirectory Tad strSettings = strSettings & "& Directory"Ja (attr Un vbVolume) = vbVolume Tad strSettings = strSettings & "& Volumn"Ja (attr Un vbAlias) = vbAlias Tad strSettings = strSettings & "& Alias"Ja (attr Un vbArchive) = vbArchive Tad strSettings = strSettings & "& Arhīvs"Ja (attr Un vbHidden) = vbSlēpts, tad strSettings = strSettings & "& Hidden"Ja (attr Un vbReadOnly) = vbReadOnly Tad strSettings = strSettings & "& ReadOnly"Ja (attr Un vbSystem) = vbSystem Tad strSettings = strSettings & "& System"GetAttributeSettings = Mid (strSettings, 2)Beigu funkcija |
1 | MsgBox GetAttributeSettings (22) |
Rezultāts: “Katalogs un slēptā sistēma”