Documentazione di Gambas

Dir

MatriceDiNomiFiles = Dir ( Directory AS String [ , Percorso AS String , *Filtro AS Integer ] *) AS String[]

Restituisce una matrice di tipo stringa che contiene i nomi dei files locati in Directory incontrati sul Percorso che soddisfano le condizioni di Filtro.

Percorso può contenere alcuni caratteri generici tipo l'operatore LIKE. Se esso non viene specificato viene restituito qualsiasi nome di file incontrato.
Filtro specifica che tipo di file dovranno essere restituiti, specificando uno o una combinazione dei file type constants. Se Filtro non viene specificato, tutti i file e le directory vengono restituiti.

Attenzione! I nomi dei file sono relativi, non contengono la directory in cui sono stati trovati.

Esempio

' 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

' Prints files only in the user home directory.

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

Funzioni su file e directory, Percorsi di File e Directory