German txt-Datei speichern

[peternmb]

Hallo,

ich schaffe es einfach nicht, eine kleine Textdatei in einem vom User gewählten Verzeichnis oder auf USB-Stick zu speichern.
Der Filedialog geht auf, ich kann das Verzichnis wählen, dort Schreibrechte vergeben, dann stürzt meine App ab.
Ich finde den Fehler einfach nicht

Sub BtnDaba_4_Click 
    'Export Spieler-Datenbank
    '
    Storage.SelectDir(False)
    Wait For Storage_ExternalFolderAvailable
    FoldersStack.Clear
    Enter4_Folder(Storage.Root)
End Sub

Private Sub Enter4_Folder (folder As ExternalFile)
    FoldersStack.Add(folder)
    Dim sb As StringBuilder
    sb.Initialize
    '
    For Each fl As ExternalFile In FoldersStack
        If fl = Storage.Root Then
            sb.Append("Root")
        Else
            sb.Append(" / ").Append(fl.Name)
        End If
    Next
    '
    Dim destfile As ExternalFile = Storage.CreateNewFile(Storage.Root,"Mitspieler.txt")  'define destfile
    Dim Out As OutputStream = Storage.OpenOutputStream(destfile)                         'create Outputstream
    Dim In As InputStream  = File.OpenInput(File.Combine(oListDir,"/"),"Mitspieler.txt") 'create Inputstream
    File.Copy2(In,Out)                                                                      'copy file
    Out.Close                                                                            'close Outputstream
    '   
    ToastMessageShow("Datenbank wurde erfolgreich exportiert.", False)
    '
End Sub

 

[b4x-de]

Ich kann nur raten... Gibt es hierfür Permissions, die erteilt sein müssen?

 

[DonManfred]

dann stürzt meine App ab.

Wo ist die komplette Fehlermeldung?
Ohne die kann vermutlich niemand eine konkrete Antwort geben.

oListDir

Welcher Pfad versteckt sich hier?

 

[peternmb]

Hallo,

Hier kann man genau sehen, wo die App abstürzt, die 1 wird noch im Log gezeigt:

'
Log("1")
'
Storage.SelectDir(False)
Wait For Storage_ExternalFolderAvailable
'
Log("2")
'  
FoldersStack.Clear
EnterFolder(Storage.Root)
'

Hier die das Log mit Fehlermeldung:

1
** Activity (main) Pause, UserClosed = false **
sending message to waiting queue (OnActivityResult)
running waiting messages (1)
content://com.android.externalstorage.documents/tree/primary%3AVM
externalstorage_vvvvvvvvvvvvvv4 (java line: 196)
java.lang.ClassNotFoundException: androidx$documentfile$provider$DocumentFile
at anywheresoftware.b4j.object.JavaObject.getCorrectClassName(JavaObject.java:289)
at anywheresoftware.b4j.object.JavaObject.InitializeStatic(JavaObject.java:75)
at pbit.skat.listenfuehrer2.externalstorage._vvvvvvvvvvvvvv4(externalstorage.java:196)
at pbit.skat.listenfuehrer2.externalstorage._vvvvvvvvvvvvvvv1(externalstorage.java:358)
at pbit.skat.listenfuehrer2.externalstorage._ion_event(externalstorage.java:245)
at java.lang.reflect.Method.invoke(Native Method)
at anywheresoftware.b4a.BA.raiseEvent2(BA.java:221)
at anywheresoftware.b4a.BA.raiseEvent(BA.java:201)
at anywheresoftware.b4j.object.JavaObject$1.invoke(JavaObject.java:238)
at java.lang.reflect.Proxy.invoke(Proxy.java:1006)
at $Proxy2.ResultArrived(Unknown Source)
at anywheresoftware.b4a.BA$4.run(BA.java:593)
at anywheresoftware.b4a.BA.setActivityPaused(BA.java:467)
at pbit.skat.listenfuehrer2.main$ResumeMessage.run(main.java:313)
at android.os.Handler.handleCallback(Handler.java:938)
at android.os.Handler.dispatchMessage(Handler.java:99)
at android.os.Looper.loopOnce(Looper.java:201)
at android.os.Looper.loop(Looper.java:288)
at android.app.ActivityThread.main(ActivityThread.java:7870)
at java.lang.reflect.Method.invoke(Native Method)
at com.android.internal.os.RuntimeInit$MethodAndArgsCaller.run(RuntimeInit.java:548)
at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:1003)

oListDir = File.DirInternal & "/MeineApp"
File.MakeDir(File.DirInternal,"MeineApp")