German CSV Export vom internen App Speicher

[Bluray]

Hallo zusammen,

ich habe mir eine App zusammengebastelt, in der eine Tabelle existiert, in der Einträge gemacht werden und in der Tabelle "table.csv" gespeichert wird mittels

Public Sub ExportTableToCSV

    
    Dim data As List
    data.Initialize
    Dim rs As ResultSet = B4XTable1.sql1.ExecQuery("SELECT * FROM data")
    Do While rs.NextRow
        Dim row(B4XTable1.Columns.Size) As String
        For i = 0 To B4XTable1.Columns.Size - 1
            Dim c As B4XTableColumn = B4XTable1.Columns.Get(i)
            row(i) = rs.GetString(c.SQLID)
        Next
        data.Add(row)
    Loop
    rs.Close
    If data.Size>0 Then
        Dim su As StringUtils
        su.SaveCSV(xui.DefaultFolder, CSVFile, ",", data)
    End If

End Sub

Ich würde nun gerne diese CSV per Knopfdruck exportieren, z.B. in den Ordner Downloads. Leider klappt es nicht, ich habe es z.B. mit su.SaveCSV(File.Combine(File.DirRootExternal,"Download"), CSVFile, ",", data) probiert.
Eine andere Idee wäre eventuell die CSV neu zu generieren und in eine CSV direkt im Ordner Downloads zu speichern und nicht die interne zu kopieren ?!

Wenn ihr mir mit diesem, vielleicht auch einfachen, Problem weiterhelfen könntet, wäre dies super.

Vielen Dank im Vorraus!

 

[b4x-de]

Sieh dir bitte das Beispiel hier an:

[B4X] TextEditor - Save and load external files

This is a B4i and B4A example, which demonstrates various external files related tasks. The behavior is not exactly the same as the platforms capabilities and behavior are different. B4A Load external files, including online files, using ContentChooser. Save to an external target, using...

www.b4x.com

File.DirRootExternal ist veraltet und darf nicht mehr verwendet werden.