Sub ExportData
ProgressDialogShow2(Texts(119), False)
DoEvents
Dim raf As RandomAccessFile
DateTime.DateFormat = "dd/MM/yyyy"
exportfilename = DateTime.Date(DateTime.Now) & DateTime.Time(DateTime.Now) & "_Data"
exportfilename = exportfilename.Replace(".", "")
exportfilename = exportfilename.Replace("/", "")
exportfilename = exportfilename.Replace(":", "")
exportfilename = exportfilename & ".ap"
File.WriteString(File.DirRootExternal, exportfilename, "")
raf.Initialize(File.DirRootExternal, exportfilename, False)
DoEvents
Dim writelist As List = File.ReadList(File.DirInternal, "data.txt")
writelist.Add(DateTime.Now)
DoEvents
raf.WriteEncryptedObject(writelist, ExportPassword, 0)
DoEvents
raf.Close
ProgressDialogHide
DoEvents
End Sub