Sub ion_Event (MethodName As String, Args() As Object) As Object
If Args(0) = -1 Then 'resultCode = RESULT_OK
Dim i As Intent = Args(1)
Dim jo As JavaObject = i
Dim treeUri As JavaObject = jo.RunMethod("getData", Null)
Dim ctxt As JavaObject
ctxt.InitializeContext
Dim DocumentFileStatic As JavaObject
Dim pickedDir As JavaObject = DocumentFileStatic.InitializeStatic("android.support.v4.provider.DocumentFile").RunMethod("fromTreeUri", Array(ctxt, treeUri))
Dim files() As Object = pickedDir.RunMethod("listFiles", Null)
For Each f As JavaObject In files
Log(f.RunMethod("getName", Null))
Next
Dim newFile As JavaObject = pickedDir.RunMethod("createFile", Array("text/plain", "My Novel"))
Dim out As OutputStream = ctxt.RunMethodJO("getContentResolver", Null).RunMethod("openOutputStream", Array(newFile.RunMethod("getUri", Null)))
Dim tw As TextWriter
tw.Initialize(out)
tw.Write("this is a test")
tw.Close
End If
Return Null
End Sub