Italian Copiare un file presente in cartella Download

Dim downloadDir As String = File.Combine(File.DirRootExternal, "Download")
Dim files As List
files.Initialize

'--- recupera solo file .db
For Each f As String In File.ListFiles(downloadDir)
    Log(f)
    If f.ToLowerCase.EndsWith(".db") Then
        files.Add(f)
    End If
Next

Private destdir As String = GL.SQLDataBasePath
   
    cc.Show("application/octet-stream", "Scegli un file .db")
    Wait For cc_Result (Success As Boolean, Dir As String, FileName As String)
   
    If Success = False Then Return
   
    If FileName.ToLowerCase.EndsWith(".db") = False Then
        ToastMessageShow("Non ha estensione .db", True)
        Return
    End If

    If File.Exists(destdir, FileName) Then
        File.Delete(destdir, FileName)
    End If

    File.Copy(Dir, FileName, destdir, FileName)
    ToastMessageShow("File copiato: " & FileName, True)

Private destdir As String = GL.SQLDataBasePath
  
    cc.Show("application/octet-stream", "Scegli un file .db")
    Wait For CC_Result (Success As Boolean, Dir As String, uriFileName As String)
    If Success Then
        Dim FileName As String = GetFileInfoByIndex("_display_name", uriFileName)
        If FileName.ToLowerCase.EndsWith(".db") = False Then
           ToastMessageShow("Non ha estensione .db", True)
           Return
       End If

      If File.Exists(destdir, FileName) Then
         File.Delete(destdir, FileName)
     End If

    File.Copy(Dir, FileName, destdir, FileName)
   ToastMessageShow("File copiato: " & FileName, True) 
End Sub

Private Sub GetFileInfoByIndex(column As String, uri As String) As String
    Dim results As String
    Dim Cur As Cursor
    Dim Uri1 As Uri
    Dim cr As ContentResolver
    cr.Initialize("")

    'if viewing by gallery
    If uri.StartsWith("content://media/") Then
        Dim i As Int = uri.LastIndexOf("/")
        Dim id As String = uri.SubString(i + 1)
        Uri1.Parse(uri)
        Cur = cr.Query(Uri1, Null, "_id = ?", Array As String(id), Null)
        Cur.Position = 0
        If Cur.RowCount <> 0 Then
            For i = 0 To Cur.ColumnCount - 1
                If Cur.GetColumnName(i) <> Null Then
                    If Cur.GetColumnName(i) = column Then
                        results = Cur.GetString2(i)
                        Exit
                    End If
                End If
            Next
        End If
    Else
        Uri1.Parse(uri)
        Cur = cr.Query(Uri1, Null, Null, Null, Null)
        Cur.Position = 0
        If Cur.RowCount <> 0 Then
            For i = 0 To Cur.ColumnCount - 1
                If Cur.GetColumnName(i) <> Null Then
                    If Cur.GetColumnName(i) = column Then
                        results = Cur.GetString2(i)
                        Exit
                    End If
                End If
            Next
        End If
    End If
    
    Cur.Close
    
    Return results
    
End Sub

File.Copy(Dir, FileName, destdir, FileName)

        Dim Out As OutputStream
        Out = File.OpenOutput(File.DirInternal, FileName, False)
        Dim Inp As InputStream = File.OpenInput(Dir , uriFileName)
        File.Copy2(Inp, Out)
        Out.Close

Out = File.OpenOutput(File.DirInternal, FileName_quello_che_vuoi, False)