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