Sub btnPic_Click
Dim btn As Button
btn = Sender
CurrentPic = btn.Tag
CC.Show("image/*", "Choose Image")
End Sub
Sub CC_Result (Success As Boolean, Dir As String, FileName As String)
If Success Then
Dim TargetDir As String
Dim TargetExt As String
ToastMessageShow(TargetExt, False)
If File.ExternalWritable Then TargetDir = File.DirDefaultExternal Else TargetDir = File.DirInternal
File.Copy(Dir, FileName, TargetDir, CurrentPic & ".jpg")
Log(File.ListFiles(TargetDir))
End If
End Sub