Differenze tra le versioni di "Dir"

Da Gambas-it.org - Wikipedia.
Riga 4: Riga 4:
  
  
Esempio:
+
Poniamo come esempio di avere una cartella, chiamata ''cartella'', nel percorso ''/tmp''. All'interno di questa cartella vi sono tre file con estensione ''.jpg'' e tre file con estensione ''.txt''. Intendiamo individuare soltanto i file aventi estensione ''.jpg''. Possiamo adottare un codice come il seguente:
  '''Public''' Sub Button1_Click()
+
  '''Public''' Sub Main()
 
   
 
   
  <FONT color=#006400>' ''Raccoglie tutti i file nella ''Home'' aventi l'estensione ''.jpg'',''
+
  Dim s As String
' ''li ordina alfabeticamente, e quindi li mostra in console:''</font>
+
   For Each $fl in Dir(User.Home &/ "*.jpg").Sort()
+
  <FONT color=gray>' ''Raccoglie ogni singolo contenuto presente nel percorso ''/tmp/cartella/'' avente l'estensione ".jpg" e che sia un "file":''</font>
     Print $fl
+
   For Each s In Dir("/tmp/cartella", "*.jpg", gb.File)
 +
     Print s
 
   Next
 
   Next
 
   
 
   
 
  '''End'''
 
  '''End'''

Versione delle 16:04, 1 dic 2013

La funzione Dir restituisce un array stringa contenente i nomi dei file presenti nella cartella puntata aventi le caratteristiche indicate nel secondo parametro. Se non viene specificato tale parametro, verranno restituiti tutti i file presenti nella Directory. E' previsto, inoltre, un terzo parametro, relativo alle costanti previste dalla Classe gb, per poter specificare il tipo di file che dovrà essere restituito. Se tale filtro non viene specificato, vengono restituiti tutti i file e tutte le cartelle.

Dir(Directory AS String [ , 2° parametro AS String , 3° parametro AS Integer ]) AS String[]


Poniamo come esempio di avere una cartella, chiamata cartella, nel percorso /tmp. All'interno di questa cartella vi sono tre file con estensione .jpg e tre file con estensione .txt. Intendiamo individuare soltanto i file aventi estensione .jpg. Possiamo adottare un codice come il seguente:

Public Sub Main()

 Dim s As String

' Raccoglie ogni singolo contenuto presente nel percorso /tmp/cartella/ avente l'estensione ".jpg" e che sia un "file":
  For Each s In Dir("/tmp/cartella", "*.jpg", gb.File)
    Print s
  Next

End