Sub Globals
Dim fname2 As String 'the file needs to be in the assets folder: "Folder-Problem.jpg"
Private imageview As ImageView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1") 'has imageview
fname2 = "Folder-Problem.jpg"
Dim rp As RuntimePermissions 'need runtimepermissions lib cheched
rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
wait for Activity_PermissionResult(Permision As String, Result As Boolean)
If Result = False Then
MsgboxAsync("No permission to access external storage", "")
Return
Else
Log("granted permission")
If File.Exists(File.DirRootExternal, fname2) =False Then
File.Copy(File.DirAssets,fname2, File.DirRootExternal, fname2)
Log("file copied to dir external")
imageview.Bitmap = LoadBitmapResize(File.DirRootExternal,"Folder-Problem.jpg", 40dip, 40dip, True)
End If
End If
End Sub