Added backup function to quit button
This commit is contained in:
parent
00b9cc6ac5
commit
afaadf6d53
@ -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
|
||||
|
@ -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")>
|
||||
|
Reference in New Issue
Block a user