Dim cc As ContentChooser
cc.Initialize("CC")
cc.Show("*/*", "Select any file")
Wait For CC_Result (Success As Boolean, Dir As String, fileURI As String)
If Success Then
Try
Dim OutStr As OutputStream = File.OpenOutput(File.DirInternal,"myfile",False)
Dim InStr As InputStream = File.OpenInput("ContentDir",fileURI)
File.Copy2(InStr,OutStr)
OutStr.Close
Catch
xui.MsgboxAsync(LastException, "B4X")
End Try
xui.MsgboxAsync("Done", "B4X")
Else
xui.MsgboxAsync("ContentChooser failed or was cancelled", "B4X")
End If