Sub Activity_Create(FirstTime As Boolean)
Dim cam As EZcamera
cam.Initialize("Cam")
cam.TakePicture(File.DirRootExternal, "TestPic.jpg")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Cam_PictureTaken (FileSaved As Boolean)
If FileSaved = True Then ToastMessageShow("Picture Saved " & File.DirRootExternal, True)
File.Copy(File.DirRootExternal,"TestPic.jpg",File.DirRootExternal & "/Pictures" & "/NEW/","TestPic.jpg")
File.Delete(File.DirRootExternal,"TestPic.jpg") '<< DOESN´T WORK BECAUSE OF NAME
End Sub