Public Sub ListFiles2 As List
Dim folder As ExternalFile = Storage.Root
Dim files() As Object = folder.Native.RunMethod("listFiles", Null)
Dim res As List
res.Initialize
For Each f As JavaObject In files
If f.IsInitialized Then res.Add(Storage.FindFile(folder, f.RunMethod("getName", Null)))
Next
Return res
End Sub