Buongiorno ,
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
Resumable subs with recursive File.ListFiles to update UI
Hi all, I'm trying to get my head around this but have tried a number of things with Sleep and Wait For, all of which failed. I think it's the recursion that gets in my way but perhaps am missing something else. I want to get a folder's (and its subfolders') contents and display the folder...
www.b4x.com
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