Funzione GetAttr

Articolo
09/12/2008

Aggiornamento: novembre 2007

Restituisce un valore FileAttribute che rappresenta gli attributi di un file, di una directory o di una cartella.

Nelle operazioni di I/O dei file la funzionalità My offre un più elevato livello di produttività e prestazioni rispetto a FileAttribute. Per ulteriori informazioni, vedere Oggetto My.Computer.FileSystem.

Public Function GetAttr(ByVal PathName As String) As FileAttribute

Parametri

PathName
Obbligatorio. Espressione String che specifica un nome di file, directory o cartella. PathName può includere la directory o la cartella e l'unità.

Valore restituito

Il valore restituito dalla funzione GetAttr è la somma dei seguenti valori di enumerazione:

Valore	Costante	Descrizione
Normal	vbNormal	Normale.
ReadOnly	vbReadOnly	Di sola lettura.
Hidden	vbHidden	Nascosto.
System	vbSystem	File di sistema.
Directory	vbDirectory	Directory o cartella.
Archive	vbArchive	Il file è stato modificato dall'ultimo backup.
Alias	vbAlias	Il file ha un nome diverso.

Nota:
Le enumerazioni indicate sono specificate dal linguaggio Visual Basic e possono essere utilizzate in qualsiasi punto del codice in sostituzione dei valori effettivi.

Eccezioni

Tipo di eccezione	Numero di errore	Condizione
IOException	52	Pathname non è valido o contiene caratteri jolly.
FileNotFoundException	53	Il file di destinazione non esiste.

Se si esegue l'aggiornamento delle applicazioni Visual Basic 6.0 che utilizzano la gestione degli errori non strutturata, vedere la colonna "Numero di errore". È possibile confrontare il numero di errore con la Proprietà Number (oggetto Err). Se possibile, tuttavia, si consiglia di sostituire il controllo dell'errore con la procedura illustrata nella sezione Cenni preliminari sulla gestione strutturata delle eccezioni per Visual Basic.

Note

È possibile determinare gli attributi impostati utilizzando l'operatore And per eseguire un confronto bit per bit tra il valore restituito dalla funzione GetAttr e il valore del singolo attributo di file desiderato. Se il risultato è diverso da zero significa che l'attributo è impostato per il file denominato. Ad esempio, il valore restituito dalla seguente espressione And è 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

Nell'esempio riportato di seguito la funzione GetAttr viene utilizzata per determinare gli attributi di un file e la directory o cartella.

Dim MyAttr As FileAttribute
' Assume file TESTFILE is normal and readonly.
MyAttr = GetAttr("C:\TESTFILE.txt")   ' Returns vbNormal.

' Test for normal.
If (MyAttr And FileAttribute.Normal) = FileAttribute.Normal Then
   MsgBox("This file is normal.")
End If

' Test for normal and readonly.
Dim normalReadonly As FileAttribute
normalReadonly = FileAttribute.Normal Or FileAttribute.ReadOnly
If (MyAttr And normalReadonly) = normalReadonly Then
   MsgBox("This file is normal and readonly.")
End If

' Assume MYDIR is a directory or folder.
MyAttr = GetAttr("C:\MYDIR")
If (MyAttr And FileAttribute.Directory) = FileAttribute.Directory Then
   MsgBox("MYDIR is a directory")
End If