Added backup function to quit button

This commit is contained in:
JackCarterSmith 2017-10-15 12:22:54 +02:00
parent 00b9cc6ac5
commit afaadf6d53
2 changed files with 11 additions and 2 deletions

View File

@ -422,4 +422,13 @@ Public Class Main
ListAllInv()
log.Info("DB importé avec succès")
End Sub
Private Sub QuitterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles QuitterToolStripMenuItem.Click
If MsgBox("Souhaitez-vous faire une backup de la DB ?", 292, "Backup") = 7 Then End
If Not My.Computer.FileSystem.DirectoryExists(localAppData & "backups") Then My.Computer.FileSystem.CreateDirectory(localAppData & "backups")
File.Copy(dbLocFile, localAppData & "backups\" & DateTime.Now.ToString("yyyy-MM-dd_HH.mm") & ".sqlite")
log.Info("Backup de la DB")
End
End Sub
End Class

View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' en utilisant '*', comme indiqué ci-dessous :
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("0.11.1.6")>
<Assembly: AssemblyFileVersion("0.11.1.6")>
<Assembly: AssemblyVersion("0.11.2.2")>
<Assembly: AssemblyFileVersion("0.11.2.2")>