Italian PERMISSION_WRITE_EXTERNAL_STORAGE senza scheda SD

Try
   ' codice
Catch
  if LastException.Message="..." then 
     'Manca permesso
  else if LastException.Message=".." then
     ' Manca SD
  else
    ' manca la volontà
  end if
End Try

    If mBBL.getSDKVersion >= 19 Then
        SDCardDir = FindSDCardDir 'File.DirInternal
        'Log("SDCardDir=" & SDCardDir)
    Else
        SDCardDir = File.DirDefaultExternal
    End If

Public Sub FindSDCardDir As String
    Dim SDDir As String = ""
    Dim paths() As Object = GetContext.RunMethod("getExternalFilesDirs", Array(Null))
   
    If paths.Length > 1 And paths(1) <> Null Then
         SDDir = paths(1) 'Das ist der Path von der SD-Karte
    End If
'    For Each p As Object In paths
'        Log(p)
'    Next
    If SDDir <> "" Then
        Return SDDir
    Else
        If File.Exists(File.DirDefaultExternal, "") Then
            Return File.DirDefaultExternal
        Else
            Return File.DirInternal
        End If
    End If
End Sub

Private Sub GetContext As JavaObject
    Return GetBA.GetField("context")
End Sub

Private Sub GetBA As JavaObject
    Dim jo As JavaObject
    Dim cls As String = Me
    cls = cls.SubString("class ".Length)
    jo.InitializeStatic(cls)
    Return jo.GetFieldJO("processBA")
End Sub