Sub chooser_Result (Success As Boolean, Dir As String, FileName As String)
If Success Then
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, "dst.png", False)
File.Copy2(File.OpenInput( File.DirInternal, "temp.png") , out)
out.Close
Else
ToastMessageShow("No image selected", True)
End If
End Sub