Notă
Funcția, metoda, obiectul sau proprietatea descrisă în acest subiect este dezactivată dacă Microsoft Jet Expression Service rulează în modul sandbox, ceea ce împiedică evaluarea expresiilor potențial nesigure. Pentru mai multe informații despre modul sandbox, căutați "modul sandbox" în Ajutor.
Returnează un număr întreg care reprezintă atributele unui fișier, director sau folder.
Sintaxă
GetAttr(numecale)
Argumentul callnameobligatoriu este o expresie șir de caractere care specifică un nume de fișier. Numele calei poate include directorul sau folderul și unitatea.
Valorile returnate
Valoarea returnată de GetAttr este suma următoarelor valori de atribut:
| Constantă | Valoare | Descriere |
|---|---|---|
| vbNormal | 0 | Normal. |
| vbReadOnly | 1 | Doar în citire. |
| vbHidden | 2 | Ascuns. |
| vbSystem | 4 | Fișier de sistem. Nu este disponibilă pe Macintosh. |
| vbDirectory | 16 | Director sau folder. |
| vbArchive | 32 | Fișierul s-a modificat de la ultima copiere de rezervă. Nu este disponibilă pe Macintosh. |
| vbAlias | 64 | Numele de fișier specificat este un alias. Disponibil doar pe Macintosh. |
Notă
Aceste constante sunt specificate de Visual Basic for Applications. Numele pot fi utilizate oriunde în cod în locul valorilor efective.
Observații
Notă
Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA). Pentru mai multe informații despre lucrul cu VBA, selectați Referințe pentru dezvoltatori în lista verticală de lângă Căutare și introduceți unul sau mai mulți termeni în caseta de căutare.
Pentru a determina setarea atributelor, utilizați operatorul And pentru a efectua o comparație la nivel de biți între valoarea returnată de funcția GetAttr și valoarea atributului de fișier individual dorit. Dacă rezultatul nu este zero, acel atribut este setat pentru fișierul denumit. De exemplu, valoarea returnată a următoarei expresii And este zero dacă atributul Arhivă nu este setat:
Result = GetAttr(FName) And vbArchive
Se returnează o valoare diferită de zero dacă este setat atributul Arhivă.
Exemplu
Acest exemplu utilizează funcția GetAttr pentru a determina atributele unui fișier și ale unui director sau folder. Pe Macintosh sunt disponibile numai constantele vbNormal, vbReadOnly, vbHidden și 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.