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!