Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("start")
'Try
If File.Exists(File.DirRootExternal,"ZeiterfassungDan/datazeit.db")= False Then
File.MakeDir(File.DirRootExternal,"ZeiterfassungDan")
File.Copy(File.DirAssets,"datazeit.db",File.DirRootExternal,"ZeiterfassungDan/datazeit.db")
File.Copy(File.DirAssets,"jarst.txt",File.DirRootExternal,"ZeiterfassungDan/jarst.txt")
End If
End Sub
Sub Butbackup_Click
‘Try
If File.Exists(File.DirRootExternal,"ZeiterfassungDanBackup/datazeit.db")= False Then
File.MakeDir(File.DirRootExternal,"ZeiterfassungDanBackup")
File.Copy(File.DirRootExternal,"ZeiterfassungDan/datazeit.db",File.DirRootExternal,"ZeiterfassungDanBackup/datazeit.db")
File.Copy(File.DirRootExternal,"ZeiterfassungDan/monast.txt",File.DirRootExternal,"ZeiterfassungDanBackup/monast.txt")
ToastMessageShow ("Backup erfolgreich gesichert",False)
Else
File.Copy(File.DirRootExternal,"ZeiterfassungDan/datazeit.db",File.DirRootExternal,"ZeiterfassungDanBackup/datazeit.db")
File.Copy(File.DirRootExternal,"ZeiterfassungDan/monast.txt",File.DirRootExternal,"ZeiterfassungDanBackup/monast.txt")
ToastMessageShow ("Backup erfolgreich gesichert",False)
End If
End Sub
Sub Button1_Click
'wiederstellen
Try
If File.Exists(File.DirRootExternal,"ZeiterfassungDan/datazeit.db")= False Then
File.MakeDir(File.DirRootExternal,"ZeiterfassungDan")
File.Copy(File.DirRootExternal,"ZeiterfassungDanBackup/datazeit.db",File.DirRootExternal,"ZeiterfassungDan/datazeit.db")
File.Copy(File.DirRootExternal,"ZeiterfassungDanBackup/monast.txt",File.DirRootExternal,"ZeiterfassungDan/monast.txt")
ToastMessageShow ("Backup erfolgreich gesichert",False)
Else
File.Copy(File.DirRootExternal,"ZeiterfassungDanBackup/datazeit.db",File.DirRootExternal,"ZeiterfassungDan/datazeit.db")
File.Copy(File.DirRootExternal,"ZeiterfassungDanBackup/jarst.txt",File.DirRootExternal,"ZeiterfassungDan/jarst.txt")
ToastMessageShow ("Daten Wiederstellen erfolgreich",False)
End If
End Sub