Nota: La funzione, il metodo, la proprietà o l'oggetto descritto in questo argomento è disabilitato se Microsoft Jet Expression Service è in esecuzione in modalità sandbox, che impedisce la valutazione delle espressioni potenzialmente pericolose. Per altre informazioni sulla modalità sandbox, cercare "modalità sandbox" nella Guida.
Restituisce un valore Integer che rappresenta gli attributi di un file, una directory o una cartella.
Sintassi
GetAttr ( percorso )
Il percorsoargomento obbligatorio è un espressione stringa che specifica un nome file. Nell'argomento percorso possono essere incluse la directory o cartella e l'unità.
Valori restituiti
Il valore restituito da GetAttr è la somma dei seguenti valori di attributo:
Costante |
Valore |
Descrizione |
vbNormal |
0 |
Normale. |
vbReadOnly |
1 |
Sola lettura. |
vbHidden |
2 |
Nascosto. |
vbSystem |
4 |
File di sistema. Non disponibile con Macintosh. |
vbDirectory |
16 |
Directory o cartella. |
vbArchive |
32 |
Il file è cambiato dall'ultimo backup. Non disponibile con Macintosh. |
vbAlias |
64 |
Il nome file specificato è un alias. Disponibile solo con Macintosh. |
Nota: Queste costanti vengono specificate da Visual Basic, Applications Edition. I nomi possono essere usati in qualsiasi punto del codice al posto dei valori effettivi.
Osservazioni
Nota: Gli esempi seguenti illustrano l'uso di questa funzione in un modulo di Visual Basic, Applications Edition (VBA). Per altre informazioni sull'uso di VBA, selezionare Riferimenti per sviluppatori nell'elenco a discesa accanto a Cerca e immettere uno o più termini nella casella di ricerca.
Per determinare quali attributi sono impostati, utilizzare l'operatore And per eseguire una confronto bit per bit del valore restituito dalla funzione GetAttr e il valore del singolo attributo di file desiderato. Se il risultato è diverso da zero, l'attributo viene impostato per il file denominato. Ad esempio, il valore restituito dell'espressione And seguente è zero se l'attributo Archive non è impostato:
Result = GetAttr(FName) And vbArchive
Se l'attributo Archive è impostato, viene restituito un valore diverso da zero.
Esempio
Questo esempio usa la funzione GetAttr per determinare gli attributi di un file e di una directory o di una cartella. In Macintosh sono disponibili solo le costanti vbNormal, vbReadOnly, vbHidden e 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.