Sub listfile
C1 = 0
List1.Initialize
List1.Clear
List1 = File.ListFiles(addrss)
C = List1.Size
timer2.Enabled = True
List1.Sort(True)
List2.Initialize
List2.Clear
List3.Initialize
List3.Clear
Listview1.Clear
For i =0 To List1.Size - 1
ii = i
s1 = List1.Get(i)
A = s1.Length
st3 = s1
fileformat
Listview1.AddTwoLinesAndBitmap2(List1.Get(i),s3,LoadBitmap(File.DirAssets,"co8.png"),List1.Get(i))
Next
Log(addrss)
Activity.Title = addrss
label1.Text =List2.Size &" / "& Listview1.Size &" / "& List1.Size &" / "& (i+1)
End Sub