Sub makeBackup
Dim strFileName As String
DateTime.DateFormat = "yyyy-MM-dd_HH-mm"
strFileName = "StarLog backup-" & DateTime.Date(DateTime.Now) & ".slbak"
Database.Close
Try
File.Copy(File.DirInternal, "StarLog.db", File.DirRootExternal & "/StarLog", strFileName)
JVCUtils.toastMessage(Activity,NVPanel,Main.trans.GetText("txtBackupSucces"))
Catch
JVCUtils.toastMessage(Activity,NVPanel,Main.trans.GetText("txtErrorMakingBackup"))
End Try
Database.Initialize(File.DirInternal, "StarLog.db", False)
End Sub