Italian azzerare le autorizzazioni

Sub PermessoCartellaFoto
    Dim  rp As RuntimePermissions
    
    rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)' permesso singolo
    
    'rp.Check(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)' permesso singolo
    
    Wait For Activity_PermissionResult (permission As String, Result As Boolean)
    
    If Result Then

        CC.Initialize("CC")
            
    Else
        ToastMessageShow("No permission!!!", True)
        Return
    End If

End Sub

AddManifestText(
<uses-permission
  android:name="android.permission.WRITE_EXTERNAL_STORAGE"
  android:maxSdkVersion="19" />
)

Public  SQLDataBasePath = File.DirRootExternal & "/" & "cartella" As String

sbagliato
<uses-sdk android:minSdkVersion="4" android:targetSdkVersion="14"/>
giusto
<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="28"/>

#Region  Service Attributes 
    #StartAtBoot: False
    #ExcludeFromLibrary: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Service_Create
    'This is the program entry point.
    'This is a good place to load resources that are not specific to a single activity.

End Sub

Sub Service_Start (StartingIntent As Intent)
    Service.StopAutomaticForeground 'Starter service can start in the foreground state in some edge cases.
End Sub

Sub Service_TaskRemoved
    'This event will be raised when the user removes the app from the recent apps list.
End Sub

'Return true to allow the OS default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
    Return True
End Sub

Sub Service_Destroy

End Sub