' As previous Erel post, just changed a bit ...
Storage.SelectDir(True, "Please select a folder and grant a permission.", "ATTENTION")
Wait For Storage_ExternalFolderAvailable
' Message and Title used only if need to show a messagebox.
Public Sub SelectDir (UsePreviouslySelectedIfAvailable As Boolean, Message As String, Title As String)
If UsePreviouslySelectedIfAvailable And File.Exists(File.DirInternal, PreviousUriFileName) Then
PersistantUri = File.ReadString(File.DirInternal, PreviousUriFileName)
Dim list As List = ctxt.RunMethodJO("getContentResolver", Null).RunMethod("getPersistedUriPermissions", Null)
If list.IsInitialized Then
For Each uripermission As JavaObject In list
Dim u As Uri = uripermission.RunMethod("getUri", Null)
Dim temp As Object = u
Dim s As String = temp
If s = PersistantUri And uripermission.RunMethod("isWritePermission", Null) = True Then
Log("Can use persistant uri!")
SetPickedDir
Return
End If
Next
End If
End If
Wait For (xui.MsgboxAsync(Message, Title)) Msgbox_Result (Result As Int) '<----
Dim i As Intent
i.Initialize("android.intent.action.OPEN_DOCUMENT_TREE", "")
i.PutExtra("android.content.extra.SHOW_ADVANCED", True)
StartActivityForResult(i)
End Sub