Dim m As clMedia
m.Initialize(Me)
wait for (m.media(m.cPhoto,m.cNew)) complete (aresult As Boolean)
If aresult Then
'copy the media in the internal app folder
File.Copy(m.DirName,m.FileName,File.DirInternal,"file")
Log("Media size : " & File.Size(File.DirInternal,"file"))
End If