Dir
MatriceDiNomiFiles = Dir ( Directory AS String [ , Modello AS String , Filtro AS Integer ] ) AS String[]
Restituisce una matrice di stringhe che contiene i nomi dei file che si trovano nella Directory che corrispondono al
Modello e al
Filtro.
Modello può contenere alcuni caratteri generici tipo l'operatore
LIKE. Se non viene specificato alcun modello, viene restituito qualsiasi nome di file.
Filtro specifica che tipo di file dovranno essere restituiti.
Il filtro può avere uno dei seguenti valori:
-
gb.File per restituire solo i file.
-
gb.Directory per restituire solo le directory.
-
gb.File + gb.Directory per restituirli entrambi.
Se
Filtro non è specificato, verranno restituiti tutti i file e le directory.
I nomi dei file restituiti sono relativi alla directory cercata. Non contengono il percorso della directory cercata.
Esempi
' Stampa i file immagine di tipo *png* in una directory, in ordine alfabetico (notare il metodo Sort di Dir).
SUB PrintDirectory(Directory AS String)
DIM File AS String
FOR EACH File IN Dir(Directory, "*.png").Sort()
PRINT File
NEXT
END
' Stampa tutti i file non nascosti della directory utente home.
DIM fileName AS String
FOR EACH fileName IN Dir(User.Home, "[^.]*")
PRINT fileName
NEXT
' Stampa tutti i file immagine di tipo png e jpeg nella home directory dell'utente.
DIM Directory AS String
DIM Files AS String[]
DIM FileName AS String
Directory = System.User.Home
Files = Dir(Directory, "*.png")
Files.Insert(Dir(Directory, "*.jpg"))
Files.Insert(Dir(Directory, "*.jpeg"))
FOR EACH FileName IN Files
PRINT FileName
NEXT
' Stampa i file solo nella home directory dell'utente.
DIM fileName AS String
FOR EACH fileName IN Dir(User.Home, "*", gb.File)
PRINT fileName
NEXT
' Stampa solo una sub directory dell' user home directory.
DIM directoryName AS String
FOR EACH directoryName IN Dir(User.Home, "*", gb.Directory)
PRINT directoryName
NEXT
' Stampa tutte le sub directory non nascoste della directory utente home.
DIM directoryName AS String
FOR EACH directoryName IN Dir(User.Home, "[^.]*", gb.Directory)
PRINT directoryName
NEXT
' Elenca i dispositivi di sistema.
DIM deviceName AS String
FOR EACH deviceName IN Dir("/dev", "*", gb.Device)
PRINT deviceName
NEXT
Vedi anche