Italian filtra file in una cartella

MARCO C.

Active Member
Licensed User
Buongiorno ,


B4X:
Sub GetTheFolderContents (fldr As String)
   Dim folders As List
   folders.Initialize
   folders.Add(fldr)
   Do While folders.Size > 0
     fldr = folders.Get(0)
     folders.RemoveAt(0)
     labelFolder.Text = fldr ' Show this folder
     MainForm.Title = $"Total files:${flist.Size}"$
     Sleep(0)
     Dim entries As List = File.ListFiles(fldr)
     If entries.IsInitialized Then
       For Each x As String In entries
         If File.IsDirectory(fldr, x) Then
           folders.Add(File.Combine(fldr, x)) ' Found a subfolder
         Else
           flist.Add(File.Combine(fldr, x)) ' Found a file; add it to list 'fList'
         End If
       Next
     End If
   Loop
End Sub

Secondo voi, se voglio inserire un filtro nella ricerca , esempio , voglio tutti i file con : ft*.txt ,
esiste una soluzione nel codice
oppure devo filtrarmi il nome del file volta per volta per che la inserisco nella lista ( lavorando sulla stringa File.Combine(fldr, x)) ?

Grazie in anticipo
 
Top