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
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
B4X:
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