Funzione Dir

Restituisce il nome di un file, di una cartella o di tutti i file e le cartelle contenuti in un dispositivo o in una cartella che corrisponde al percorso di ricerca specificato.

Sintassi:

Dir [(Text As String) [, Attrib As Integer]]

Valore restituito:

String

Parametri:

Text (Testo): stringa che specifica il percorso di ricerca, la cartella o il file. L'argomento può essere specificato solo la prima volta che viene chiamata la funzione Dir. Se necessario, potete inserire il percorso in forma di notazione URL.

Attrib: numero intero che specifica gli attributi del file in bit. La funzione Dir restituisce solo i file o le cartelle che corrispondono agli attributi specificati. Potete combinare diversi attributi sommandone i valori:

0 : File normali.

16 : Restituisce solo il nome della cartella.

Questo attributo permette di controllare l'esistenza di un file o di una cartella, o di determinare tutti i file e le cartelle contenuti in una cartella specifica.

Per controllare l'esistenza di un file, inserite il percorso completo e il nome del file. Se il file o la cartella non esiste, la funzione Dir restituisce una stringa di lunghezza zero ("").

Per generare un elenco completo dei file contenuti in una cartella specifica, procedete come segue: La prima volta che chiamate la funzione Dir, specificate il percorso di ricerca completo per i file, ad esempio, "D:\Files\*.ods". Se il percorso è corretto e la ricerca restituisce almeno un file, la funzione Dir restituisce il nome del primo file che corrisponde al percorso di ricerca. Per restituire altri nomi di file che corrispondano al percorso, chiamate nuovamente la funzione Dir, ma senza argomenti.

Per restituire solo i nomi delle cartelle, usate il parametro dell'attributo. Lo stesso vale se volete determinare il nome di un volume (ad esempio, una partizione di un disco rigido).

Esempio:

Sub ExampleDir

' Visualizza tutti i file e le cartelle

Dim sPath As String

Dim sDir As String, sValue As String

    sDir="Cartelle:"

    sPath = CurDir

    sValue = Dir$(sPath + getPathSeparator + "*",16)

    Do

        If sValue <> "." And sValue <> ".." Then

            If (GetAttr( sPath + getPathSeparator + sValue) And 16) >0 Then

                ' Restituisce le cartelle

                sDir = sDir & chr(13) & sValue

            End If

        End If

        sValue = Dir$

    Loop Until sValue = ""

    MsgBox sDir,0,sPath

End Sub