Dim UseFileProvider As Boolean 'TRUE = SDK >=24, make use of FileProvider; FALSE = use GetSafeDirDefaultExternal
Dim SharedFolder As String
Dim Rp As RuntimePermissions
Dim strDir = "Test" As String
Dim p As Phone
Sub Activity_PermissionResult (Permission As String, Result As Boolean)
If Permission = Rp.PERMISSION_WRITE_EXTERNAL_STORAGE Then
If Result = False Then
Rp.CheckAndRequest(Rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
End If
Else If Permission = Rp.PERMISSION_READ_EXTERNAL_STORAGE Then
If Result = False Then
Rp.CheckAndRequest(Rp.PERMISSION_READ_EXTERNAL_STORAGE)
End If
Else If Permission = Rp.PERMISSION_READ_PHONE_STATE Then
If Result = False Then
Rp.CheckAndRequest(Rp.PERMISSION_READ_PHONE_STATE)
End If
Else If Permission = Rp.PERMISSION_READ_CALENDAR Then
If Result = False Then
Rp.CheckAndRequest(Rp.PERMISSION_READ_CALENDAR)
End If
Else If Permission = Rp.PERMISSION_WRITE_CALENDAR Then
If Result = False Then
Rp.CheckAndRequest(Rp.PERMISSION_WRITE_CALENDAR)
End If
Else
Log("Keine Rechte")
End If
End Sub
Sub MakeExternalFolder
If p.SdkVersion >= 24 Or File.ExternalWritable = False Then
UseFileProvider = True
SharedFolder = File.Combine(File.DirRootExternal & "/" & strDir & "/" , "shared")'File.Combine(File.DirInternal, "shared")
File.MakeDir("", SharedFolder)
Else
UseFileProvider = False
SharedFolder = Rp.GetSafeDirDefaultExternal("shared")
End If
End Sub