Sub ListFiles(dir As String)
lista_folders.Initialize
list_files=File.ListFiles(File.DirInternal)
For i= 0 To list_files.Size -1
If File.IsDirectory(File.DirInternal, list_files.Get(i))=False Then
lista_folders.Add(list_files.Get(i))
End If
Next
Return lista_folders
End Sub
Sub ListView1_ItemClick (Position As Int, Value As Object)
Activity.Title = Value
End Sub
Sub Button4_Click
Activity.LoadLayout("2nd")
ListView1.Initialize("ListView1")
ListView1 = lista_folders
Activity.AddView(ListView1, 0, 0, 100%x, 70%y)
Panel1.Visible = False
Panel3.Visible = True
End Sub