Android Question Intent requester and clone files?

' Test platform for a LibGDX game
' Save uses a standard intent filerequester
' After you saved a file, go to Android fil manager and delete it, and check that no files exist wirth that name.
' Now run this test again, and pick the same name, and save it.

' Now in the Android file app you will see the true filessystem, one file.
' Launch the app and requester a third time and you will see two (or as many times as you do this) files with the same name and different dates.

' How synchronize things so the requester will see what ectually exist?

#Region Init
    #Region Project Attributes
        #FullScreen: True
        #IncludeTitle: False
        #ApplicationLabel: Save requester file test
        #VersionCode: 1
        #VersionName: F
        #SupportedOrientations: Portrait
          #CanInstallToExternalStorage: False   
    #End Region
#End Region

Sub Process_Globals
    Private ion As Object
End Sub

Sub Globals
    Dim jo As JavaObject, rp As RuntimePermissions
    Dim sys As Phone, Surface As View, awidth As Int, aheight As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
    awidth =  Activity.Width : aheight = Activity.Height
    ' save test
    ' rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE) ' Not needed with intent
    Save ' d
End Sub

Sub ion_Event (MethodName As String, Args() As Object)
    Log ("ion")
    Dim result_ok As Int = 0 ' Default for 'false' or 'failure'
    If MethodName = "Result" Then
        Dim resultCode As Int = Args(0)
        Dim ResultIntent As Intent = Args(1)
        If resultCode = result_ok Then
            Dim contentUri As String = ResultIntent.GetData
            Log("Content URI: " & contentUri)
            ' Update media store?
        Else
            Log("Activity result canceled or encountered an error.")
        End If
    End If
End Sub

Sub StartActivityForResult(iiii As Intent)
    Dim jo As JavaObject, cls As String = Me
    cls = cls.SubString("class ".Length)
    jo.InitializeStatic(cls)
    jo = jo.GetField("processBA")
    ion = jo.CreateEvent("anywheresoftware.b4a.IOnActivityResult", "ion", Null)
    jo.RunMethod("startActivityForResult", Array(ion, iiii))
End Sub

Sub Activity_PermissionResult (Permission As String, Result As Boolean)
    If Permission = rp.PERMISSION_WRITE_EXTERNAL_STORAGE Then
        If Result = True Then
            ShowToastAt(0,0, "Permission granted.")
        Else
            ShowToastAt(0,0, "Permission denied.")
        End If
    End If
End Sub

Sub Save
    Dim contentUri As String,  success As Boolean
    Dim in As InputStream = File.OpenInput(File.DirAssets, "avatar.png")
    Wait For (SaveAs(in, "image/png", "avatar.png")) Complete (contentUri As String)
    If contentUri <> "" Then
        success = True
        Log("Succes To get URI")
        Log(contentUri)
    End If
    If success Then
        ShowToastAt(0,0, "Image saved")
    Else
        ShowToastAt(0,0, "Image not saved")
    End If
    sys.HideKeyboard(Activity) ' Root in B4XPages
End Sub

Public Sub SaveAs(Source As InputStream, MimeType As String, Title As String) As ResumableSub
    Log("saver")
    Dim Intent As Intent
    Intent.Initialize("android.intent.action.CREATE_DOCUMENT", "")
    Intent.AddCategory("android.intent.category.OPENABLE")
    Intent.PutExtra("android.intent.extra.TITLE", Title)
    Intent.SetType(MimeType)
    StartActivityForResult(Intent)
    Wait For ion_Event (MethodName As String, Args() As Object)
    If -1 = Args(0) Then ' resultCode = RESULT_OK
        Dim result As Intent = Args(1)
        Dim jo As JavaObject = result
        Dim ctxt As JavaObject
        ctxt.InitializeContext
        Dim out As OutputStream = ctxt.RunMethodJO("getContentResolver", Null).RunMethod("openOutputStream", Array(jo.RunMethod("getData", Null)))
        Try
            File.Copy2(Source, out)
            out.Close
            Source.Close
            Dim contentUri As String = result.GetData
            Return contentUri
        Catch
            Log(LastException.Message)
        End Try
    End If
    Return ""
End Sub
' ---------------------------------------------------------------------------------------------
Sub ShowToastAt(x As Int, y As Int, text As String)
    Dim duration As Int = 0, ctxt As JavaObject, toastJO As JavaObject
    ctxt.InitializeContext
    toastJO = toastJO.InitializeStatic("android.widget.Toast").RunMethod("makeText", Array(ctxt, text, duration))
    toastJO.RunMethod("setGravity", Array(Bit.Or(Gravity.CENTER, Gravity.CENTER), x, y))
    toastJO.RunMethod("show", Null)
End Sub