From a092c1b44f4f18451313dbfd6227e19dabce4a78 Mon Sep 17 00:00:00 2001 From: "Michael J. Seiferling" Date: Tue, 23 Aug 2016 15:35:57 -0600 Subject: [PATCH] Fixed delete bug with sub-directories enabled --- GBM/Managers/mgrBackup.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/GBM/Managers/mgrBackup.vb b/GBM/Managers/mgrBackup.vb index 0946e2f..7c625d1 100644 --- a/GBM/Managers/mgrBackup.vb +++ b/GBM/Managers/mgrBackup.vb @@ -107,7 +107,7 @@ Public Class mgrBackup Return True End Function - Private Sub CheckOldBackups(ByVal oGame As clsGame, ByVal sBackupPath As String) + Private Sub CheckOldBackups(ByVal oGame As clsGame) Dim oGameBackups As List(Of clsBackup) = mgrManifest.DoManifestGetByName(oGame.Name, mgrSQLite.Database.Remote) Dim oGameBackup As clsBackup Dim sOldBackup As String @@ -122,7 +122,7 @@ Public Class mgrBackup 'Delete the oldest backup(s) (Manifest entry and backup file) For i = 1 To iDelCount oGameBackup = oGameBackups(oGameBackups.Count - i) - sOldBackup = sBackupPath & Path.DirectorySeparatorChar & oGameBackup.FileName + sOldBackup = Settings.BackupFolder & Path.DirectorySeparatorChar & oGameBackup.FileName mgrManifest.DoManifestDeletebyID(oGameBackup, mgrSQLite.Database.Remote) mgrManifest.DoManifestDeletebyID(oGameBackup, mgrSQLite.Database.Local) @@ -171,7 +171,7 @@ Public Class mgrBackup End If If oGame.AppendTimeStamp Then - CheckOldBackups(oGame, sBackupFile) + CheckOldBackups(oGame) sBackupFile = sBackupFile & Path.DirectorySeparatorChar & oGame.Name & sTimeStamp & ".7z" Else sBackupFile = sBackupFile & Path.DirectorySeparatorChar & oGame.Name & ".7z"