Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
Dim GD As GradientDrawable
GD.Initialize("TR_BL", Array As Int(Colors.Blue, Colors.LightGray))
Activity.Background = GD
ImageView1.Initialize("test")
ImageView1.Color = Colors.ARGB(25,0,0,0)
Panel1.visible=False
ListView1.SingleLineLayout.ItemHeight = 50dip
ListView1.SingleLineLayout.Label.TextSize = 20
ListView1.SingleLineLayout.Label.TextColor = Colors.White
ListView1.SingleLineLayout.Label.Gravity = Gravity.LEFT
ListView1.FastScrollEnabled = True
filelist.Initialize
path1="/storage/extSdCard"
ListFolderContent(path1)
End Sub
Sub ListFolderContent(folder As String) 'As String
Dim n As Int
filelist = File.ListFiles(path1)
filelist.Sort(True)
For n = 0 To filelist.Size-1
file1 = filelist.Get(n)
'Log ("file1:"&file1)
ListView1.AddSingleLine(file1)
Next
End Sub