Notă
Funcția, metoda, obiectul sau proprietatea descrise în acest subiect este dezactivată dacă Serviciul de expresii Microsoft Jet 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 reprezentând atributele unui fișier, director sau folder.
Sintaxă
GetAttr(nume path)
Argumentul nume de calenecesar este o expresie șir care specifică un nume de fișier. Numele căii poate include directorul sau folderul și unitatea.
Valori 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 | Ascunse. |
| 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 backup. 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 codul dvs. în locul valorilor reale.
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 ce atribute sunt setate, utilizați operatorul And pentru a efectua o comparație la nivel de biți a valorii returnate 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 expresiei And următoare 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 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.