Notă: Funcția, metoda, obiectul sau proprietatea descrisă în acest subiect este dezactivată dacă serviciul Microsoft Jet Expression rulează în modul sandbox, ceea ce împiedică evaluarea expresiilor potențial nesigure. Pentru mai multe informații despre modul sandbox, căutați "mod sandbox" în ajutor.
Returnează un număr întreg reprezentând atributele unui fișier, director sau folder.
Sintaxă
GetAttr ( PATHNAME )
argument PATHNAME necesare este o expresie șir care specifică un nume de fișier. PATHNAME 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 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 în Visual Basic for Applications. Numele se pot utiliza 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 ce atribute sunt setate, utilizați operatorul and pentru a efectua o comparație la nivel de bit 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 următoarelor și a expresiei este zero dacă atributul arhivă nu este setat:
Result = GetAttr(FName) And vbArchive
Se returnează o valoare nenulă dacă atributul arhivă este setat.
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.
