dunestorm/GBM
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed delete bug with sub-directories enabled

Browse Source
This commit is contained in:
Michael J. Seiferling
2016-08-23 15:35:57 -06:00
parent 77b5efbe02
commit a092c1b44f
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
GBM/Managers/mgrBackup.vb
+3 -3
View File
@@ -107,7 +107,7 @@ Public Class mgrBackup
Return True Return True
End Function 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 oGameBackups As List(Of clsBackup) = mgrManifest.DoManifestGetByName(oGame.Name, mgrSQLite.Database.Remote)
Dim oGameBackup As clsBackup Dim oGameBackup As clsBackup
Dim sOldBackup As String Dim sOldBackup As String
@@ -122,7 +122,7 @@ Public Class mgrBackup
'Delete the oldest backup(s) (Manifest entry and backup file) 'Delete the oldest backup(s) (Manifest entry and backup file)
For i = 1 To iDelCount For i = 1 To iDelCount
oGameBackup = oGameBackups(oGameBackups.Count - i) 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.Remote)
mgrManifest.DoManifestDeletebyID(oGameBackup, mgrSQLite.Database.Local) mgrManifest.DoManifestDeletebyID(oGameBackup, mgrSQLite.Database.Local)
@@ -171,7 +171,7 @@ Public Class mgrBackup
End If End If
If oGame.AppendTimeStamp Then If oGame.AppendTimeStamp Then
CheckOldBackups(oGame, sBackupFile) CheckOldBackups(oGame)
sBackupFile = sBackupFile & Path.DirectorySeparatorChar & oGame.Name & sTimeStamp & ".7z" sBackupFile = sBackupFile & Path.DirectorySeparatorChar & oGame.Name & sTimeStamp & ".7z"
Else Else
sBackupFile = sBackupFile & Path.DirectorySeparatorChar & oGame.Name & ".7z" sBackupFile = sBackupFile & Path.DirectorySeparatorChar & oGame.Name & ".7z"