Dim rp As RuntimePermissions
rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult (Permission As String, istOK As Boolean)
If istOK Then
'access here
'Msgbox2Async("Zugriff OK", "Ich", "", "OK", "", Null, False)
ListDir = rp.GetSafeDirDefaultExternal("MeinVerzeichnis")
Else
Msgbox2Async("Wenn Sie der App keinen Zugriff gewähren, werden die Daten im internen Speicher abgelegt auf den Sie keinen Zugriff haben. Sämtliche Daten werden bei einer Deinstallation gelöscht.", "Datenspeicherung", "noch einmal fragen", "Zugriff nicht erlauben", "", Null, False)
Wait For Msgbox_Result (Result As Int)
If Result = DialogResponse.POSITIVE Then
rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult (Permission As String, istOK As Boolean)
If istOK Then
'access here
'Msgbox2Async("Zugriff OK", "Ich", "", "OK", "", Null, False)
ListDir = rp.GetSafeDirDefaultExternal("MeinVerzeichnis")
Else
'Msgbox2Async("kein Zugriff", "Ich", "", "OK", "", Null, False)
ListDir = File.DirInternal & "/MeinVerzeichnis"
File.MakeDir(File.DirInternal,"MeinVerzeichnis")
End If
Else
'Msgbox2Async("kein Zugriff", "Ich", "", "OK", "", Null, False)
ListDir = File.DirInternal & "/MeinVerzeichnis"
File.MakeDir(File.DirInternal,"MeinVerzeichnis")
End If
End If