Funzione Dir

Articolo
09/12/2008

Aggiornamento: novembre 2007

Restituisce una stringa contenente il nome di un file, la directory o cartella corrispondente a un determinato modello o attributo di file oppure l'etichetta di volume di un'unità.

Nelle operazioni di I/O dei file l'Oggetto My.Computer.FileSystem offre un più elevato livello di produttività e prestazioni rispetto a Dir. Per ulteriori informazioni, vedere Metodo My.Computer.FileSystem.GetDirectoryInfo.

Public Overloads Function Dir() As String
' -or-
Public Overloads Function Dir( _
       ByVal PathName As String, _ 
       Optional ByVal Attributes As FileAttribute = FileAttribute.Normal _
) As String

Parametri

PathName
Facoltativo. Espressione String che specifica un nome di file, di directory o di cartella oppure l'etichetta di volume dell'unità. Se PathName non è disponibile, verrà restituita una stringa di lunghezza zero ("").
Attributes
Facoltativo. Enumerazione o espressione numerica il cui valore specifica gli attributi del file. Se omesso, la funzione Dir restituisce i file corrispondenti a PathName che non dispongono di attributi.

Impostazioni

Di seguito sono riportati i valori di enumerazione dell'argomento Attributes:

Valore	Costante	Descrizione
Normal	vbnormal	Impostazione predefinita. Specifica file privi di attributi.
ReadOnly	vbReadOnly	Specifica file di sola lettura oltre ai file privi di attributi.
Hidden	vbHidden	Specifica file nascosti oltre ai file privi di attributi.
System	vbSystem	Specifica file di sistema oltre ai file privi di attributi.
Volume	vbVolume	Specifica l'etichetta di volume. Se sono specificati altri attributi, vbVolume verrà ignorato.
Directory	vbDirectory	Specifica directory o cartelle oltre ai file privi di attributi.
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.

Note

La funzione Dir supporta l'utilizzo di caratteri jolly per la sostituzione di caratteri multipli (*) e singoli (?) per specificare più file.

VbVolume restituisce l'etichetta di volume dell'unità anziché un nome di file specifico.

Alla prima chiamata effettuata alla funzione Dir è necessario fornire un valore per PathName. Per recuperare l'elemento seguente, è possibile effettuare chiamate successive alla funzione Dir senza parametri.

Nota sulla sicurezza:
Per eseguire correttamente la funzione Dir, è necessario che i flag Read e PathDiscovery di FileIOPermission vengano concessi al codice in esecuzione. Per ulteriori informazioni, vedere FileIOPermission, SecurityException e Permessi di accesso al codice.

Esempio

Nell'esempio riportato di seguito la funzione Dir viene utilizzata per verificare l'esistenza di determinati file e directory.

Dim MyFile, MyPath, MyName As String
' Returns "WIN.INI" if it exists.
MyFile = Dir("C:\WINDOWS\WIN.INI")   

' Returns filename with specified extension. If more than one *.INI
' file exists, the first file found is returned.
MyFile = Dir("C:\WINDOWS\*.INI")

' Call Dir again without arguments to return the next *.INI file in the
' same directory.
MyFile = Dir()

' Return first *.TXT file, including files with a set hidden attribute.
MyFile = Dir("*.TXT", vbHidden)

' Display the names in C:\ that represent directories.
MyPath = "c:\"   ' Set the path.
MyName = Dir(MyPath, vbDirectory)   ' Retrieve the first entry.
Do While MyName <> ""   ' Start the loop.
      ' Use bitwise comparison to make sure MyName is a directory.
      If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
         ' Display entry only if it's a directory.
         MsgBox(MyName)
      End If   
   MyName = Dir()   ' Get next entry.
Loop