Spanish [Solucionado] Mostrar archivos en directorio DCIM y copiar alguno a otro directorio

Sub Button1_Click
    Dim cc As ContentChooser
    cc.Initialize("cc")
    cc.Show("*/*", "")
    Wait For CC_Result (Success As Boolean, Dir As String, FileName As String)
    If Success Then
        Log(Dir)
        Log(FileName)
    End If
End Sub

Wait For (File.CopyAsync(Dir, FileName, ShCode.cDirMedia, cFileMedia)) Complete (Success As Boolean)

Sub getGaleria
    Dim cc As ContentChooser
    cc.Initialize("cc")
    cc.Show("*/*", "Elige:")
    Wait For CC_Result (Success As Boolean, Dir As String, FileName As String)
    If Success Then
        Wait For (getNombreReal(FileName)) complete (cNFreal As String)
        If cNFreal<>"" Then
            ' Aquí los procesos que hago con el fichero, copiarlo, etc.
        End If
    End If
End Sub

Sub getNombreReal( uri As String ) As ResumableSub
    Try
        Wait For (GetFileInfoByIndex("_display_name", uri)) complete (cNombre As String)
    Catch
        Log(LastException)
    End Try
    Return cNombre
End Sub

Sub GetFileInfoByIndex(column As String, uri As String) As ResumableSub
    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