German CSV Export vom internen App Speicher

Bluray

Member
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
ExportTableToCSV:
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

Active Member
Licensed User
Longtime User
Sieh dir bitte das Beispiel hier an:


File.DirRootExternal ist veraltet und darf nicht mehr verwendet werden.
 
Cookies are required to use this site. You must accept them to continue using the site. Learn more…