Android Question Load Files

[Helio]

Hello everyone. I would like to load several text file names saved by the project and put one on each label. I searched the forum and found nothing specific. Detail: I'm using an emulator.

 

[josejad]

We don't know how you save the file names, and we don't know how have you created the labels, so we just can guess:

- You can try this sample, changing the swithes for labels, and iterate while you got file names.

[B4X] I need 100 <custom view here>s. How to add programmatically?

Custom views are designed to be added with the designer. It is however very simple to create a layout file with the custom view and load it multiple times. Tip: remove the call to AutoScaleAll from the designer script. Complete example: Sub Globals Private B4XSwitch1 As B4XSwitch End...

www.b4x.com

- You can add the file names to a xCustomListView

 

[Helio]

Thanks for answering me. I managed to find a solution. I would like to know now where these files are saved in Windows, but I think that another topic should be created for that. For those who want to know the solution I found, here it goes ... I took it from a LucasMs post and adapted it
Public Sub ListFilesOnly(Dir As String) As List
Dim lstDir, lstRes As List
lstRes.Initialize

If File.Exists(Dir, "") Then

lstDir = File.ListFiles(Dir)

Dim FileName As String

For i = 0 To lstDir.Size - 1
FileName = lstDir.Get(i)
If Not(File.IsDirectory(Dir, FileName)) Then
lstRes.Add(FileName)
End If
Labels(i).Text=FileName
Next
'EditText1.Text=FileName
End If

Return lstRes

End Sub

 

[Erel]

Please use [code]code here...[/code] tags when posting code.

 

[Helio]

If File.Exists(Dir, "") Then

lstDir = File.ListFiles(Dir)

Dim FileName As String

For i = 0 To lstDir.Size - 1
FileName = lstDir.Get(i)
If Not(File.IsDirectory(Dir, FileName)) Then
lstRes.Add(FileName)
End If
Labels(i).Text=FileName
Next
'EditText1.Text=FileName
End If

Return lstRes

End Sub