German Speicherkarte

pucki

Active Member
Licensed User
Hallo Leute

Ich habe ein kleines Problem.

wenn ich den Befehl

my_sql.Initialize(File.DirRootExternal, "bank.db", False)

Ausführe funktioniert mein Programm einwandfrei.

Das Problem ist folgendes. Dieser File.DirRootExternal Parameter greift nicht wirklich auf die Speicherkarte zu. Es greift bei mir auf einen Art "simulierter Speicherkarte im Tablett selbst zu. Was bedeutet das von meinen 16 GB für alles, ganz schnell mal eben 3 GB für die Datenbank drauf gehen.

Wie kann ich auf die ECHTE Speicherkarte im Slot zugreifen.

Deren Pfad ist lt. einigen Tools "/storage/DA45-D7D2/bank.db". Ich hätte ja versucht diese so zu anzugeben, aber der Befehl will das nicht.

Davon abgesehen führt das es dazu, das es nur mit DER Speicherkarte läuft. Könnte ich aber zur Not mit leben.


Für eine Hilfe wäre ich dankbar. Das ist mein 2 Tablett (1. Asus 2. Samsung) und beide hatten die "Speicherkarten" gleich.

Vielen Dank für eure Hilfe

Gruß

Pucki
 

Knoppi

Active Member
Licensed User
Longtime User
Versuchs hiermit
https://www.b4x.com/android/forum/threads/get-mounting-points.39402/
B4X:
Sub GetMountPoints
    'Call like this
    Dim MountPoints As Map = DevicePaths
    'Log here just to show the results
    Log("Device Paths Found..." & CRLF & "_____________________")
    For i = 0 To MountPoints.Size -1
        Log(MountPoints.GetKeyAt(i) & ", " & MountPoints.GetValueAt(i))
    Next
End Sub
    
Sub DevicePaths As Map
    'Should work with Android versions below 4.3
    Dim lp As List
    Dim dpaths As Map
    Dim ChkVal As String
    Dim dp As String = File.DirRootExternal
    dpaths.Initialize
    lp = File.ReadList("/system/etc/", "vold.fstab")
    For i = 0 To lp.Size -1
        ChkVal = lp.get(i)
        ChkVal = ChkVal.Replace(":", " ")
        If ChkVal.ToLowerCase.StartsWith("dev_mount") Then
            dpaths.Put(SGW(ChkVal, 2), SGW(ChkVal, 3))
        End If
    Next
    Return dpaths
End Sub

Sub SGW(CStr As String, GE As Int) As String
    Dim t As List
    Dim rs As String
    Dim sd As String
    sd = " "
    t = Regex.Split(sd, CStr)
    rs = t.Get(GE-1)
    Return rs
End Sub
oder
https://www.b4x.com/android/forum/threads/exsdcard-sd-memory-card.83401/
oder
https://www.b4x.com/android/forum/threads/storage-v1-0.49253/
 
Top