Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
RP.CheckAndRequest(RP.PERMISSION_READ_EXTERNAL_STORAGE)
Shared = File.Combine(File.DirRootExternal, "Download")
Log(Shared)
End Sub
Private Sub Button2_Click
Dim HL As List
HL.Initialize
HL = File.ListFiles(Shared)
For i = 0 To HL.Size-1
ListView1.AddSingleLine(HL.Get(i))
Next
End Sub
[CODE=b4x]