GetAttr Descriere
Returnează un număr întreg care reprezintă atributele unui fișier, folder sau director.
Exemple simple GetAttr
| 12 | MsgBox GetAttr ("C: \")MsgBox GetAttr ("D: \ Test.txt") |
Aceasta va returna un număr întreg în funcție de setările fișierului / folderului / unității.
Dacă numele căii nu există, va apărea o eroare de rulare „53”: Fișierul nu a fost găsit.
Sintaxa GetAttr
În Editorul VBA, puteți tasta „GetAttr (” pentru a vedea sintaxa pentru funcția GetAttr:
Funcția GetAttr conține un argument:
PathName: O expresie șir care reprezintă un fișier / folder / unitate.
Returnează valorile
Valoarea returnată deGetAttr este suma următoarelor valori ale atributului:
| Constant | Valoare | Descriere |
|---|---|---|
| vbNormal | 0 | Normal. |
| vbReadOnly | 1 | Numai în citire. |
| vbAscuns | 2 | Ascuns. |
| vbSystem | 4 | Fișier de sistem. Nu este disponibil pe Macintosh. |
| vbDirectory | 16 | Director sau folder. |
| vbArhive | 32 | Fișierul s-a schimbat de la ultima copie de rezervă. Nu este disponibil pe Macintosh. |
| vbAlias | 64 | Numele fișierului specificat este un alias. Disponibil numai pe Macintosh. |
Exemple de funcții Excel VBA GetAttr
| 1 | MsgBox GetAttr ("C: \ Program Files (x86)") |
| 1 | MsgBox GetAttr ("C: \") |
În timpul testării cu diferite dosare / fișiere / unități, acesta va returna diferite numere precum 1, 2, 5, 22 și așa mai departe.
De exemplu, în cazul 22, înseamnă vbDirectory (16) + vbSystem (4) + vbHidden (2).
Pentru a obține setările atributelor corespunzătoare fiecărui număr, puteți utiliza următoarea funcție.
| 12345678910111213 | Funcția GetAttributeSettings (attr Ca VbFileAttribute) Ca ȘirDim strSettings As StringstrSettings = ""If (attr And vbDirectory) = vbDirectory then strSettings = strSettings & "& Directory"If (attr And vbVolume) = vbVolume Then strSettings = strSettings & "& Volumn"If (attr And vbAlias) = vbAlias Then strSettings = strSettings & "& Alias"If (attr And vbArchive) = vbArchive Then strSettings = strSettings & "& Archive"If (attr And vbHidden) = vbHidden Then strSettings = strSettings & "& Hidden"If (attr And vbReadOnly) = vbReadOnly Then strSettings = strSettings & "& ReadOnly"Dacă (attr Și vbSystem) = vbSystem atunci strSettings = strSettings & "& System"GetAttributeSettings = Mid (strSettings, 2)Funcția de sfârșit |
| 1 | MsgBox GetAttributeSettings (22) |
Rezultat: „Director & Ascuns & Sistem”
