Sub btnDuplicate_Click
' Dim RowId As Long = GetRowId(Sender)
' Dim Item As Map = B4XTable1.GetRow(RowId)
' ShowDialog(Item, 0) 'RowId = 0 means that a new item will be created
'
Dim CC As ContentChooser 'Phone Library
CC.Initialize("CC")
Dim RowId As Long = GetRowId(Sender)
Dim Item As Map = B4XTable1.GetRow(RowId)
Dim picname As String = Item.Get("Name")&".jpg"
Log(picname)
#if B4A
CC.Show("image/*", "Choose image")
Wait For(CC) CC_Result (Success As Boolean, Dir As String, FileName As String)
If Success = True Then
'File.Copy(Dir,FileName,xui.DefaultFolder,picname)
xui.MsgboxAsync("ok","")
End If
#End If
End Sub