Sub RutaDBCorrecta() As String
Dim TargetDir As String
'https://b4x.com/android/forum/threads/no-such-file-or-directory-file-dirdefaultexternal-not-exists.93099/
If File.ExternalWritable Then'
Private rp As RuntimePermissions
TargetDir = rp.GetSafeDirDefaultExternal("") ' File.DirDefaultExternal
Else
TargetDir = File.DirInternal
End If
Return TargetDir
End Sub
Manisfest Editor is OK:
android:targetSdkVersion="26"