Android Question File.Copy(xui.DefaultFolder, "NameFile", File.DirRootExternal, "NameFile") not work for android 9

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    Private Button1 As B4XView
    Private ion As Object
End Sub

Public Sub Initialize
'    B4XPages.GetManager.LogEvents = True
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    If File.Exists(xui.DefaultFolder, "input_output.txt") = False Then
        File.Copy(File.DirAssets, "input_output.txt", xui.DefaultFolder, "input_output.txt")
    End If
End Sub

'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.

Private Sub Button1_Click
    Try
        File.Copy(xui.DefaultFolder, "input_output.txt", File.DirRootExternal, "input_output.txt")
        xui.MsgboxAsync("Ok!","Ok!")
    Catch
        Try
            File.WriteString(File.DirInternal, "test.txt", "test")
            Wait For (SaveFile(File.OpenInput(File.DirInternal, "test.txt"), "application/octet-stream", "test.txt")) Complete (Success As Boolean)
        Catch
            xui.MsgboxAsync("File not copy!","Error!")
        End Try
    End Try
End Sub

Sub SaveFile (Source As InputStream, MimeType As String, Title As String) As ResumableSub
    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
        Dim out As OutputStream = ctxt.InitializeContext.RunMethodJO("getContentResolver", Null).RunMethod("openOutputStream", Array(jo.RunMethod("getData", Null)))
        File.Copy2(Source, out)
        out.Close
        Return True
    End If
    Return False
End Sub

Sub StartActivityForResult(i As Intent)
    Dim jo As JavaObject = GetBA
    ion = jo.CreateEvent("anywheresoftware.b4a.IOnActivityResult", "ion", Null)
    jo.RunMethod("startActivityForResult", Array(ion, i))
End Sub

Sub GetBA As Object
    Dim jo As JavaObject = Me
    Return jo.RunMethod("getBA", Null)
End Sub

Private Sub Button1_Click
    Try
        File.Copy(xui.DefaultFolder, "input_output.txt", File.DirRootExternal, "input_output.txt")
        xui.MsgboxAsync("Ok!","Ok!")
    Catch
        Try
            Wait For (SaveFile(File.OpenInput(xui.DefaultFolder, "input_output.txt"), "application/octet-stream", "input_output.txt")) Complete (Success As Boolean)
        Catch
            xui.MsgboxAsync("File not copy!","Error!")
        End Try
    End Try
End Sub