Dim st As clsSysTools
st.Initialize
Wait For (CallSub3(st, "ExportTableToCSV",Table,Filename)) Complete (Exported As Boolean)
If Exported Then
ToastMessageShow("Data Exported OK",False)
Dim in As Intent
in.Initialize(in.ACTION_VIEW, "")
Starter.Provider.SetFileUriAsIntentData(in, Filename)
in.SetType("text/csv")
StartActivity(in)
Return True