Compare commits
27 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
c0dbd95504 | ||
|
|
d0c40fd341 | ||
|
|
68855077cf | ||
|
|
229afa92fd | ||
|
|
db6c96a80b | ||
|
|
6d0db7c075 | ||
|
|
e3f5c7e3c0 | ||
|
|
ba1fc76ebe | ||
|
|
6de58dc977 | ||
|
|
5e0e1a543f | ||
|
|
7254b6b501 | ||
|
|
f117e7fbaa | ||
|
|
d46bc38bdc | ||
|
|
a092c1b44f | ||
|
|
77b5efbe02 | ||
|
|
7a93fd799b | ||
|
|
4108ec36d7 | ||
|
|
87f93ed4f5 | ||
|
|
18befc19b3 | ||
|
|
bfe2346e8a | ||
|
|
9cbc2b3240 | ||
|
|
1fab0e0cf4 | ||
|
|
588f51d496 | ||
|
|
77eb164a62 | ||
|
|
58ec4564ae | ||
|
|
8c1f3144f8 | ||
|
|
507984bdf8 |
@@ -7,6 +7,7 @@
|
||||
Private bFolderSave As Boolean = False
|
||||
Private sFileType As String = String.Empty
|
||||
Private bAppendTimeStamp As Boolean = False
|
||||
Private iBackupLimit As Integer = 2
|
||||
Private sExcludeList As String = String.Empty
|
||||
Private sProcessPath As String = String.Empty
|
||||
Private sIcon As String = String.Empty
|
||||
@@ -117,6 +118,15 @@
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property BackupLimit As Integer
|
||||
Get
|
||||
Return iBackupLimit
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
iBackupLimit = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property ExcludeList As String
|
||||
Set(value As String)
|
||||
sExcludeList = value
|
||||
@@ -293,6 +303,9 @@
|
||||
If AppendTimeStamp <> oGame.AppendTimeStamp Then
|
||||
Return False
|
||||
End If
|
||||
If BackupLimit <> oGame.BackupLimit Then
|
||||
Return False
|
||||
End If
|
||||
End If
|
||||
If (eSyncFields And eOptionalSyncFields.Version) = eOptionalSyncFields.Version Then
|
||||
If Version <> oGame.Version Then
|
||||
|
||||
@@ -1,23 +0,0 @@
|
||||
Public Class clsRestoreCache
|
||||
Private sName As String
|
||||
Private sPath As String
|
||||
|
||||
Property Name As String
|
||||
Get
|
||||
Return sName
|
||||
End Get
|
||||
Set(value As String)
|
||||
sName = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property Path As String
|
||||
Get
|
||||
Return sPath
|
||||
End Get
|
||||
Set(value As String)
|
||||
sPath = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Class
|
||||
Generated
+42
-14
@@ -36,6 +36,8 @@ Partial Class frmAddWizard
|
||||
Me.txtProcessPath = New System.Windows.Forms.TextBox()
|
||||
Me.lblStep2Intro = New System.Windows.Forms.Label()
|
||||
Me.tbPage3 = New System.Windows.Forms.TabPage()
|
||||
Me.lblLimit = New System.Windows.Forms.Label()
|
||||
Me.nudLimit = New System.Windows.Forms.NumericUpDown()
|
||||
Me.lblStep3Title = New System.Windows.Forms.Label()
|
||||
Me.lblStep3Instructions = New System.Windows.Forms.Label()
|
||||
Me.chkTimeStamp = New System.Windows.Forms.CheckBox()
|
||||
@@ -70,6 +72,7 @@ Partial Class frmAddWizard
|
||||
Me.tbPage1.SuspendLayout()
|
||||
Me.tbPage2.SuspendLayout()
|
||||
Me.tbPage3.SuspendLayout()
|
||||
CType(Me.nudLimit, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.tbPage3a.SuspendLayout()
|
||||
Me.tbPage4.SuspendLayout()
|
||||
Me.tbPage5.SuspendLayout()
|
||||
@@ -121,8 +124,8 @@ Partial Class frmAddWizard
|
||||
Me.lblStep1Instructions.Name = "lblStep1Instructions"
|
||||
Me.lblStep1Instructions.Size = New System.Drawing.Size(303, 85)
|
||||
Me.lblStep1Instructions.TabIndex = 6
|
||||
Me.lblStep1Instructions.Text = "The name will be automatically filtered for length and invalid characters. You m" & _
|
||||
"ay drag and drop a shortcut here to complete this step, only Windows shortcuts a" & _
|
||||
Me.lblStep1Instructions.Text = "The name will be automatically filtered for length and invalid characters. You m" &
|
||||
"ay drag and drop a shortcut here to complete this step, only Windows shortcuts a" &
|
||||
"re currently supported."
|
||||
'
|
||||
'txtName
|
||||
@@ -205,6 +208,8 @@ Partial Class frmAddWizard
|
||||
'tbPage3
|
||||
'
|
||||
Me.tbPage3.BackColor = System.Drawing.SystemColors.Control
|
||||
Me.tbPage3.Controls.Add(Me.lblLimit)
|
||||
Me.tbPage3.Controls.Add(Me.nudLimit)
|
||||
Me.tbPage3.Controls.Add(Me.lblStep3Title)
|
||||
Me.tbPage3.Controls.Add(Me.lblStep3Instructions)
|
||||
Me.tbPage3.Controls.Add(Me.chkTimeStamp)
|
||||
@@ -218,6 +223,26 @@ Partial Class frmAddWizard
|
||||
Me.tbPage3.TabIndex = 2
|
||||
Me.tbPage3.Text = "TabPage3"
|
||||
'
|
||||
'lblLimit
|
||||
'
|
||||
Me.lblLimit.AutoSize = True
|
||||
Me.lblLimit.Location = New System.Drawing.Point(203, 109)
|
||||
Me.lblLimit.Name = "lblLimit"
|
||||
Me.lblLimit.Size = New System.Drawing.Size(68, 13)
|
||||
Me.lblLimit.TabIndex = 15
|
||||
Me.lblLimit.Text = "Backup Limit"
|
||||
Me.lblLimit.Visible = False
|
||||
'
|
||||
'nudLimit
|
||||
'
|
||||
Me.nudLimit.Location = New System.Drawing.Point(157, 107)
|
||||
Me.nudLimit.Minimum = New Decimal(New Integer() {2, 0, 0, 0})
|
||||
Me.nudLimit.Name = "nudLimit"
|
||||
Me.nudLimit.Size = New System.Drawing.Size(40, 20)
|
||||
Me.nudLimit.TabIndex = 14
|
||||
Me.nudLimit.Value = New Decimal(New Integer() {2, 0, 0, 0})
|
||||
Me.nudLimit.Visible = False
|
||||
'
|
||||
'lblStep3Title
|
||||
'
|
||||
Me.lblStep3Title.AutoSize = True
|
||||
@@ -230,32 +255,32 @@ Partial Class frmAddWizard
|
||||
'
|
||||
'lblStep3Instructions
|
||||
'
|
||||
Me.lblStep3Instructions.Location = New System.Drawing.Point(14, 116)
|
||||
Me.lblStep3Instructions.Location = New System.Drawing.Point(14, 139)
|
||||
Me.lblStep3Instructions.Name = "lblStep3Instructions"
|
||||
Me.lblStep3Instructions.Size = New System.Drawing.Size(303, 42)
|
||||
Me.lblStep3Instructions.TabIndex = 9
|
||||
Me.lblStep3Instructions.Text = "If you're unsure of exactly which files to backup, make sure Save Entire Folder " & _
|
||||
"is checked. You can also time stamp your backup files to make incremental backu" & _
|
||||
"ps."
|
||||
Me.lblStep3Instructions.Text = "If you're unsure of exactly which files to backup, make sure Save entire folder " &
|
||||
"is checked. You can also choose to save multiple backups and set a limit on how" &
|
||||
" many to keep."
|
||||
'
|
||||
'chkTimeStamp
|
||||
'
|
||||
Me.chkTimeStamp.AutoSize = True
|
||||
Me.chkTimeStamp.Location = New System.Drawing.Point(139, 87)
|
||||
Me.chkTimeStamp.Location = New System.Drawing.Point(18, 108)
|
||||
Me.chkTimeStamp.Name = "chkTimeStamp"
|
||||
Me.chkTimeStamp.Size = New System.Drawing.Size(122, 17)
|
||||
Me.chkTimeStamp.Size = New System.Drawing.Size(133, 17)
|
||||
Me.chkTimeStamp.TabIndex = 8
|
||||
Me.chkTimeStamp.Text = "Time Stamp Backup"
|
||||
Me.chkTimeStamp.Text = "Save multiple backups"
|
||||
Me.chkTimeStamp.UseVisualStyleBackColor = True
|
||||
'
|
||||
'chkFolderSave
|
||||
'
|
||||
Me.chkFolderSave.AutoSize = True
|
||||
Me.chkFolderSave.Location = New System.Drawing.Point(17, 87)
|
||||
Me.chkFolderSave.Location = New System.Drawing.Point(18, 87)
|
||||
Me.chkFolderSave.Name = "chkFolderSave"
|
||||
Me.chkFolderSave.Size = New System.Drawing.Size(113, 17)
|
||||
Me.chkFolderSave.Size = New System.Drawing.Size(109, 17)
|
||||
Me.chkFolderSave.TabIndex = 7
|
||||
Me.chkFolderSave.Text = "Save Entire Folder"
|
||||
Me.chkFolderSave.Text = "Save entire folder"
|
||||
Me.chkFolderSave.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnSaveBrowse
|
||||
@@ -352,7 +377,7 @@ Partial Class frmAddWizard
|
||||
Me.lblStep3aInstructions.Name = "lblStep3aInstructions"
|
||||
Me.lblStep3aInstructions.Size = New System.Drawing.Size(303, 56)
|
||||
Me.lblStep3aInstructions.TabIndex = 5
|
||||
Me.lblStep3aInstructions.Text = "Choose any file types, specific files or folders you wish to include in the back" & _
|
||||
Me.lblStep3aInstructions.Text = "Choose any file types, specific files or folders you wish to include in the back" &
|
||||
"up. If you're unsure, go back a step and choose to save the entire folder. "
|
||||
'
|
||||
'txtFileTypes
|
||||
@@ -434,7 +459,7 @@ Partial Class frmAddWizard
|
||||
Me.lblStep4Instructions.Name = "lblStep4Instructions"
|
||||
Me.lblStep4Instructions.Size = New System.Drawing.Size(303, 59)
|
||||
Me.lblStep4Instructions.TabIndex = 5
|
||||
Me.lblStep4Instructions.Text = "Choose any file types, specific files or folders you wish to exclude from the ba" & _
|
||||
Me.lblStep4Instructions.Text = "Choose any file types, specific files or folders you wish to exclude from the ba" &
|
||||
"ckup. You may choose multiple items to exclude. This step can be skipped."
|
||||
'
|
||||
'txtExcludeList
|
||||
@@ -539,6 +564,7 @@ Partial Class frmAddWizard
|
||||
Me.tbPage2.PerformLayout()
|
||||
Me.tbPage3.ResumeLayout(False)
|
||||
Me.tbPage3.PerformLayout()
|
||||
CType(Me.nudLimit, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.tbPage3a.ResumeLayout(False)
|
||||
Me.tbPage3a.PerformLayout()
|
||||
Me.tbPage4.ResumeLayout(False)
|
||||
@@ -591,4 +617,6 @@ Partial Class frmAddWizard
|
||||
Friend WithEvents lblExcludePath As Label
|
||||
Friend WithEvents lblIncludePathTitle As Label
|
||||
Friend WithEvents lblExcludePathTitle As Label
|
||||
Friend WithEvents lblLimit As Label
|
||||
Friend WithEvents nudLimit As NumericUpDown
|
||||
End Class
|
||||
|
||||
@@ -46,6 +46,7 @@ Public Class frmAddWizard
|
||||
lblStep3Instructions.Text = frmAddWizard_lblStep3Instructions
|
||||
chkTimeStamp.Text = frmAddWizard_chkTimeStamp
|
||||
chkFolderSave.Text = frmAddWizard_chkFolderSave
|
||||
lblLimit.Text = frmAddWizard_lblLimit
|
||||
btnSaveBrowse.Text = frmAddWizard_btnSaveBrowse
|
||||
lblStep3Intro.Text = frmAddWizard_lblStep3Intro
|
||||
lblIncludePathTitle.Text = frmAddWizard_lblIncludePathTitle
|
||||
@@ -68,6 +69,28 @@ Public Class frmAddWizard
|
||||
StepHandler()
|
||||
End Sub
|
||||
|
||||
Private Sub ShowHideLimit()
|
||||
If chkTimeStamp.Checked Then
|
||||
nudLimit.Visible = True
|
||||
lblLimit.Visible = True
|
||||
nudLimit.Value = 5
|
||||
Else
|
||||
nudLimit.Visible = False
|
||||
nudLimit.Value = nudLimit.Minimum
|
||||
lblLimit.Visible = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Function ShowSummaryLimit(ByVal bTimeStamp As Boolean, ByVal iLimit As Integer) As String
|
||||
Dim sLimit As String = String.Empty
|
||||
|
||||
If bTimeStamp Then
|
||||
Return mgrCommon.BooleanYesNo(bTimeStamp) & " (" & iLimit & ")"
|
||||
Else
|
||||
Return mgrCommon.BooleanYesNo(bTimeStamp)
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Function StringEmptyText(ByVal sString As String) As String
|
||||
If sString = String.Empty Then
|
||||
Return frmAddWizard_None
|
||||
@@ -81,19 +104,31 @@ Public Class frmAddWizard
|
||||
Dim sName As String = txtName.Text
|
||||
Dim sProcessFullPath As String = txtProcessPath.Text
|
||||
Dim sProcessPath As String = Path.GetDirectoryName(sProcessFullPath)
|
||||
Dim sProcess As String = Path.GetFileNameWithoutExtension(sProcessFullPath)
|
||||
Dim sProcessSummaryText As String = Path.GetFileName(sProcessFullPath) & " (" & sProcessPath & ")"
|
||||
Dim sSavePath As String = txtSavePath.Text
|
||||
Dim bIsAbsolute As Boolean = mgrPath.IsAbsolute(sSavePath)
|
||||
Dim bFolderBackup As Boolean = chkFolderSave.Checked
|
||||
Dim bTimeStamp As Boolean = chkTimeStamp.Checked
|
||||
Dim iLimit As Integer = nudLimit.Value
|
||||
Dim sFileType As String = txtFileTypes.Text
|
||||
Dim sExcludeList As String = txtExcludeList.Text
|
||||
Dim sProcess As String
|
||||
Dim sItem As String()
|
||||
Dim sItems As String()
|
||||
Dim sValues As String()
|
||||
Dim lstItem As ListViewItem
|
||||
|
||||
'Handle Process
|
||||
If Path.HasExtension(sProcessFullPath) Then
|
||||
If sProcessFullPath.ToLower.EndsWith(".exe") Then
|
||||
sProcess = Path.GetFileNameWithoutExtension(sProcessFullPath)
|
||||
Else
|
||||
sProcess = Path.GetFileName(sProcessFullPath)
|
||||
End If
|
||||
Else
|
||||
sProcess = Path.GetFileName(sProcessFullPath)
|
||||
End If
|
||||
|
||||
If Not bIsAbsolute Then
|
||||
sSavePath = mgrPath.DetermineRelativePath(sProcessPath, sSavePath)
|
||||
End If
|
||||
@@ -106,7 +141,7 @@ Public Class frmAddWizard
|
||||
lstSummary.Columns(1).Width = 210
|
||||
|
||||
sItems = {frmAddWizard_Summary_Name, frmAddWizard_Summary_Process, frmAddWizard_Summary_AbsolutePath, frmAddWizard_Summary_SavePath, frmAddWizard_Summary_FolderSave, frmAddWizard_Summary_Timestamp, frmAddWizard_Summary_Include, frmAddWizard_Summary_Exclude}
|
||||
sValues = {sName, sProcessSummaryText, mgrCommon.BooleanYesNo(bIsAbsolute), sSavePath, mgrCommon.BooleanYesNo(bFolderBackup), mgrCommon.BooleanYesNo(bTimeStamp), StringEmptyText(sFileType), StringEmptyText(sExcludeList)}
|
||||
sValues = {sName, sProcessSummaryText, mgrCommon.BooleanYesNo(bIsAbsolute), sSavePath, mgrCommon.BooleanYesNo(bFolderBackup), ShowSummaryLimit(bTimeStamp, iLimit), StringEmptyText(sFileType), StringEmptyText(sExcludeList)}
|
||||
|
||||
For i = 0 To sItems.Length - 1
|
||||
sItem = {sItems(i), sValues(i)}
|
||||
@@ -122,7 +157,9 @@ Public Class frmAddWizard
|
||||
oGame.FolderSave = bFolderBackup
|
||||
oGame.FileType = sFileType
|
||||
oGame.AppendTimeStamp = bTimeStamp
|
||||
oGame.BackupLimit = iLimit
|
||||
oGame.ExcludeList = sExcludeList
|
||||
oGame.ProcessPath = sProcessPath
|
||||
|
||||
Return oGame
|
||||
End Function
|
||||
@@ -490,6 +527,10 @@ Public Class frmAddWizard
|
||||
txtFileTypes.Clear()
|
||||
End Sub
|
||||
|
||||
Private Sub chkTimeStamp_CheckedChanged(sender As Object, e As EventArgs) Handles chkTimeStamp.CheckedChanged
|
||||
ShowHideLimit()
|
||||
End Sub
|
||||
|
||||
Private Sub btnInclude_Click(sender As Object, e As EventArgs) Handles btnInclude.Click
|
||||
OpenBuilder(frmAddWizard_Include, txtFileTypes)
|
||||
UpdateBuilderLabel(txtFileTypes.Text, lblFileTypes)
|
||||
@@ -499,4 +540,6 @@ Public Class frmAddWizard
|
||||
OpenBuilder(frmAddWizard_Exclude, txtExcludeList)
|
||||
UpdateBuilderLabel(txtExcludeList.Text, lblExclude)
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
Generated
+171
-122
@@ -28,6 +28,8 @@ Partial Class frmGameManager
|
||||
Me.btnBackup = New System.Windows.Forms.Button()
|
||||
Me.btnClose = New System.Windows.Forms.Button()
|
||||
Me.grpConfig = New System.Windows.Forms.GroupBox()
|
||||
Me.lblLimit = New System.Windows.Forms.Label()
|
||||
Me.nudLimit = New System.Windows.Forms.NumericUpDown()
|
||||
Me.btnExclude = New System.Windows.Forms.Button()
|
||||
Me.btnInclude = New System.Windows.Forms.Button()
|
||||
Me.txtID = New System.Windows.Forms.TextBox()
|
||||
@@ -61,18 +63,17 @@ Partial Class frmGameManager
|
||||
Me.lblHours = New System.Windows.Forms.Label()
|
||||
Me.btnTags = New System.Windows.Forms.Button()
|
||||
Me.grpStats = New System.Windows.Forms.GroupBox()
|
||||
Me.cboRemoteBackup = New System.Windows.Forms.ComboBox()
|
||||
Me.lblRestorePathData = New System.Windows.Forms.Label()
|
||||
Me.lblBackupFileData = New System.Windows.Forms.Label()
|
||||
Me.lblLocalBackupData = New System.Windows.Forms.Label()
|
||||
Me.lblRestorePath = New System.Windows.Forms.Label()
|
||||
Me.txtRestorePath = New System.Windows.Forms.TextBox()
|
||||
Me.btnOpenRestorePath = New System.Windows.Forms.Button()
|
||||
Me.btnOpenBackupFile = New System.Windows.Forms.Button()
|
||||
Me.txtFileSize = New System.Windows.Forms.TextBox()
|
||||
Me.btnDeleteBackup = New System.Windows.Forms.Button()
|
||||
Me.lblFileSize = New System.Windows.Forms.Label()
|
||||
Me.lblSync = New System.Windows.Forms.Label()
|
||||
Me.txtCurrentBackup = New System.Windows.Forms.TextBox()
|
||||
Me.lblCurrentBackup = New System.Windows.Forms.Label()
|
||||
Me.txtLocalBackup = New System.Windows.Forms.TextBox()
|
||||
Me.lblLastBackup = New System.Windows.Forms.Label()
|
||||
Me.lblBackupFile = New System.Windows.Forms.Label()
|
||||
Me.lblRemote = New System.Windows.Forms.Label()
|
||||
Me.lblLocalData = New System.Windows.Forms.Label()
|
||||
Me.btnMarkAsRestored = New System.Windows.Forms.Button()
|
||||
Me.btnRestore = New System.Windows.Forms.Button()
|
||||
Me.btnSave = New System.Windows.Forms.Button()
|
||||
@@ -91,13 +92,18 @@ Partial Class frmGameManager
|
||||
Me.cmsFile = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.txtQuickFilter = New System.Windows.Forms.TextBox()
|
||||
Me.lblQuickFilter = New System.Windows.Forms.Label()
|
||||
Me.cmsDeleteBackup = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.cmsDeleteOne = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.cmsDeleteAll = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.grpConfig.SuspendLayout()
|
||||
CType(Me.nudLimit, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.grpExtra.SuspendLayout()
|
||||
CType(Me.pbIcon, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.nudHours, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.grpStats.SuspendLayout()
|
||||
Me.grpFilter.SuspendLayout()
|
||||
Me.cmsImport.SuspendLayout()
|
||||
Me.cmsDeleteBackup.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'btnAdd
|
||||
@@ -125,26 +131,28 @@ Partial Class frmGameManager
|
||||
'btnBackup
|
||||
'
|
||||
Me.btnBackup.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnBackup.Location = New System.Drawing.Point(616, 525)
|
||||
Me.btnBackup.Location = New System.Drawing.Point(616, 526)
|
||||
Me.btnBackup.Name = "btnBackup"
|
||||
Me.btnBackup.Size = New System.Drawing.Size(75, 23)
|
||||
Me.btnBackup.TabIndex = 18
|
||||
Me.btnBackup.TabIndex = 19
|
||||
Me.btnBackup.Text = "&Backup"
|
||||
Me.btnBackup.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnClose
|
||||
'
|
||||
Me.btnClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnClose.Location = New System.Drawing.Point(697, 525)
|
||||
Me.btnClose.Location = New System.Drawing.Point(697, 526)
|
||||
Me.btnClose.Name = "btnClose"
|
||||
Me.btnClose.Size = New System.Drawing.Size(75, 23)
|
||||
Me.btnClose.TabIndex = 19
|
||||
Me.btnClose.TabIndex = 20
|
||||
Me.btnClose.Text = "C&lose"
|
||||
Me.btnClose.UseVisualStyleBackColor = True
|
||||
'
|
||||
'grpConfig
|
||||
'
|
||||
Me.grpConfig.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.grpConfig.Controls.Add(Me.lblLimit)
|
||||
Me.grpConfig.Controls.Add(Me.nudLimit)
|
||||
Me.grpConfig.Controls.Add(Me.btnExclude)
|
||||
Me.grpConfig.Controls.Add(Me.btnInclude)
|
||||
Me.grpConfig.Controls.Add(Me.txtID)
|
||||
@@ -168,12 +176,32 @@ Partial Class frmGameManager
|
||||
Me.grpConfig.TabStop = False
|
||||
Me.grpConfig.Text = "Configuration"
|
||||
'
|
||||
'lblLimit
|
||||
'
|
||||
Me.lblLimit.AutoSize = True
|
||||
Me.lblLimit.Location = New System.Drawing.Point(375, 130)
|
||||
Me.lblLimit.Name = "lblLimit"
|
||||
Me.lblLimit.Size = New System.Drawing.Size(68, 13)
|
||||
Me.lblLimit.TabIndex = 13
|
||||
Me.lblLimit.Text = "Backup Limit"
|
||||
Me.lblLimit.Visible = False
|
||||
'
|
||||
'nudLimit
|
||||
'
|
||||
Me.nudLimit.Location = New System.Drawing.Point(329, 128)
|
||||
Me.nudLimit.Minimum = New Decimal(New Integer() {2, 0, 0, 0})
|
||||
Me.nudLimit.Name = "nudLimit"
|
||||
Me.nudLimit.Size = New System.Drawing.Size(40, 20)
|
||||
Me.nudLimit.TabIndex = 12
|
||||
Me.nudLimit.Value = New Decimal(New Integer() {2, 0, 0, 0})
|
||||
Me.nudLimit.Visible = False
|
||||
'
|
||||
'btnExclude
|
||||
'
|
||||
Me.btnExclude.Location = New System.Drawing.Point(9, 125)
|
||||
Me.btnExclude.Name = "btnExclude"
|
||||
Me.btnExclude.Size = New System.Drawing.Size(175, 23)
|
||||
Me.btnExclude.TabIndex = 13
|
||||
Me.btnExclude.TabIndex = 9
|
||||
Me.btnExclude.Text = "E&xclude Items..."
|
||||
Me.btnExclude.UseVisualStyleBackColor = True
|
||||
'
|
||||
@@ -182,7 +210,7 @@ Partial Class frmGameManager
|
||||
Me.btnInclude.Location = New System.Drawing.Point(9, 97)
|
||||
Me.btnInclude.Name = "btnInclude"
|
||||
Me.btnInclude.Size = New System.Drawing.Size(175, 23)
|
||||
Me.btnInclude.TabIndex = 10
|
||||
Me.btnInclude.TabIndex = 8
|
||||
Me.btnInclude.Text = "In&clude Items..."
|
||||
Me.btnInclude.UseVisualStyleBackColor = True
|
||||
'
|
||||
@@ -192,7 +220,7 @@ Partial Class frmGameManager
|
||||
Me.txtID.Location = New System.Drawing.Point(489, 19)
|
||||
Me.txtID.Name = "txtID"
|
||||
Me.txtID.Size = New System.Drawing.Size(30, 20)
|
||||
Me.txtID.TabIndex = 16
|
||||
Me.txtID.TabIndex = 0
|
||||
Me.txtID.TabStop = False
|
||||
Me.txtID.Visible = False
|
||||
'
|
||||
@@ -201,7 +229,7 @@ Partial Class frmGameManager
|
||||
Me.btnSavePathBrowse.Location = New System.Drawing.Point(489, 71)
|
||||
Me.btnSavePathBrowse.Name = "btnSavePathBrowse"
|
||||
Me.btnSavePathBrowse.Size = New System.Drawing.Size(30, 20)
|
||||
Me.btnSavePathBrowse.TabIndex = 9
|
||||
Me.btnSavePathBrowse.TabIndex = 7
|
||||
Me.btnSavePathBrowse.Text = "..."
|
||||
Me.btnSavePathBrowse.UseVisualStyleBackColor = True
|
||||
'
|
||||
@@ -210,7 +238,7 @@ Partial Class frmGameManager
|
||||
Me.btnProcessBrowse.Location = New System.Drawing.Point(489, 45)
|
||||
Me.btnProcessBrowse.Name = "btnProcessBrowse"
|
||||
Me.btnProcessBrowse.Size = New System.Drawing.Size(30, 20)
|
||||
Me.btnProcessBrowse.TabIndex = 7
|
||||
Me.btnProcessBrowse.TabIndex = 5
|
||||
Me.btnProcessBrowse.Text = "..."
|
||||
Me.btnProcessBrowse.UseVisualStyleBackColor = True
|
||||
'
|
||||
@@ -243,18 +271,18 @@ Partial Class frmGameManager
|
||||
'
|
||||
'txtExclude
|
||||
'
|
||||
Me.txtExclude.Location = New System.Drawing.Point(363, 128)
|
||||
Me.txtExclude.Location = New System.Drawing.Point(489, 122)
|
||||
Me.txtExclude.Name = "txtExclude"
|
||||
Me.txtExclude.Size = New System.Drawing.Size(156, 20)
|
||||
Me.txtExclude.Size = New System.Drawing.Size(30, 20)
|
||||
Me.txtExclude.TabIndex = 0
|
||||
Me.txtExclude.TabStop = False
|
||||
Me.txtExclude.Visible = False
|
||||
'
|
||||
'txtFileType
|
||||
'
|
||||
Me.txtFileType.Location = New System.Drawing.Point(363, 99)
|
||||
Me.txtFileType.Location = New System.Drawing.Point(489, 99)
|
||||
Me.txtFileType.Name = "txtFileType"
|
||||
Me.txtFileType.Size = New System.Drawing.Size(156, 20)
|
||||
Me.txtFileType.Size = New System.Drawing.Size(30, 20)
|
||||
Me.txtFileType.TabIndex = 0
|
||||
Me.txtFileType.TabStop = False
|
||||
Me.txtFileType.Visible = False
|
||||
@@ -264,9 +292,9 @@ Partial Class frmGameManager
|
||||
Me.chkTimeStamp.AutoSize = True
|
||||
Me.chkTimeStamp.Location = New System.Drawing.Point(190, 129)
|
||||
Me.chkTimeStamp.Name = "chkTimeStamp"
|
||||
Me.chkTimeStamp.Size = New System.Drawing.Size(146, 17)
|
||||
Me.chkTimeStamp.TabIndex = 14
|
||||
Me.chkTimeStamp.Text = "Time stamp each backup"
|
||||
Me.chkTimeStamp.Size = New System.Drawing.Size(133, 17)
|
||||
Me.chkTimeStamp.TabIndex = 11
|
||||
Me.chkTimeStamp.Text = "Save multiple backups"
|
||||
Me.chkTimeStamp.UseVisualStyleBackColor = True
|
||||
'
|
||||
'chkFolderSave
|
||||
@@ -275,7 +303,7 @@ Partial Class frmGameManager
|
||||
Me.chkFolderSave.Location = New System.Drawing.Point(190, 101)
|
||||
Me.chkFolderSave.Name = "chkFolderSave"
|
||||
Me.chkFolderSave.Size = New System.Drawing.Size(109, 17)
|
||||
Me.chkFolderSave.TabIndex = 11
|
||||
Me.chkFolderSave.TabIndex = 10
|
||||
Me.chkFolderSave.Text = "Save entire folder"
|
||||
Me.chkFolderSave.UseVisualStyleBackColor = True
|
||||
'
|
||||
@@ -284,30 +312,30 @@ Partial Class frmGameManager
|
||||
Me.txtSavePath.Location = New System.Drawing.Point(69, 71)
|
||||
Me.txtSavePath.Name = "txtSavePath"
|
||||
Me.txtSavePath.Size = New System.Drawing.Size(414, 20)
|
||||
Me.txtSavePath.TabIndex = 8
|
||||
Me.txtSavePath.TabIndex = 6
|
||||
'
|
||||
'txtProcess
|
||||
'
|
||||
Me.txtProcess.Location = New System.Drawing.Point(69, 45)
|
||||
Me.txtProcess.Name = "txtProcess"
|
||||
Me.txtProcess.Size = New System.Drawing.Size(414, 20)
|
||||
Me.txtProcess.TabIndex = 6
|
||||
Me.txtProcess.TabIndex = 4
|
||||
'
|
||||
'txtName
|
||||
'
|
||||
Me.txtName.Location = New System.Drawing.Point(69, 19)
|
||||
Me.txtName.Name = "txtName"
|
||||
Me.txtName.Size = New System.Drawing.Size(414, 20)
|
||||
Me.txtName.TabIndex = 5
|
||||
Me.txtName.TabIndex = 3
|
||||
'
|
||||
'chkMonitorOnly
|
||||
'
|
||||
Me.chkMonitorOnly.AutoSize = True
|
||||
Me.chkMonitorOnly.Location = New System.Drawing.Point(362, 340)
|
||||
Me.chkMonitorOnly.Name = "chkMonitorOnly"
|
||||
Me.chkMonitorOnly.Size = New System.Drawing.Size(145, 17)
|
||||
Me.chkMonitorOnly.Size = New System.Drawing.Size(83, 17)
|
||||
Me.chkMonitorOnly.TabIndex = 11
|
||||
Me.chkMonitorOnly.Text = "Monitor only (No backup)"
|
||||
Me.chkMonitorOnly.Text = "Monitor only"
|
||||
Me.chkMonitorOnly.UseVisualStyleBackColor = True
|
||||
'
|
||||
'grpExtra
|
||||
@@ -468,18 +496,17 @@ Partial Class frmGameManager
|
||||
'grpStats
|
||||
'
|
||||
Me.grpStats.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.grpStats.Controls.Add(Me.cboRemoteBackup)
|
||||
Me.grpStats.Controls.Add(Me.lblRestorePathData)
|
||||
Me.grpStats.Controls.Add(Me.lblBackupFileData)
|
||||
Me.grpStats.Controls.Add(Me.lblLocalBackupData)
|
||||
Me.grpStats.Controls.Add(Me.lblRestorePath)
|
||||
Me.grpStats.Controls.Add(Me.txtRestorePath)
|
||||
Me.grpStats.Controls.Add(Me.btnOpenRestorePath)
|
||||
Me.grpStats.Controls.Add(Me.btnOpenBackupFile)
|
||||
Me.grpStats.Controls.Add(Me.txtFileSize)
|
||||
Me.grpStats.Controls.Add(Me.btnDeleteBackup)
|
||||
Me.grpStats.Controls.Add(Me.lblFileSize)
|
||||
Me.grpStats.Controls.Add(Me.lblSync)
|
||||
Me.grpStats.Controls.Add(Me.txtCurrentBackup)
|
||||
Me.grpStats.Controls.Add(Me.lblCurrentBackup)
|
||||
Me.grpStats.Controls.Add(Me.txtLocalBackup)
|
||||
Me.grpStats.Controls.Add(Me.lblLastBackup)
|
||||
Me.grpStats.Controls.Add(Me.lblBackupFile)
|
||||
Me.grpStats.Controls.Add(Me.lblRemote)
|
||||
Me.grpStats.Controls.Add(Me.lblLocalData)
|
||||
Me.grpStats.Location = New System.Drawing.Point(247, 365)
|
||||
Me.grpStats.Name = "grpStats"
|
||||
Me.grpStats.Size = New System.Drawing.Size(525, 154)
|
||||
@@ -487,6 +514,48 @@ Partial Class frmGameManager
|
||||
Me.grpStats.TabStop = False
|
||||
Me.grpStats.Text = "Backup Information"
|
||||
'
|
||||
'cboRemoteBackup
|
||||
'
|
||||
Me.cboRemoteBackup.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cboRemoteBackup.FormattingEnabled = True
|
||||
Me.cboRemoteBackup.Location = New System.Drawing.Point(96, 24)
|
||||
Me.cboRemoteBackup.Name = "cboRemoteBackup"
|
||||
Me.cboRemoteBackup.Size = New System.Drawing.Size(387, 21)
|
||||
Me.cboRemoteBackup.TabIndex = 12
|
||||
'
|
||||
'lblRestorePathData
|
||||
'
|
||||
Me.lblRestorePathData.AutoEllipsis = True
|
||||
Me.lblRestorePathData.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.lblRestorePathData.Location = New System.Drawing.Point(96, 98)
|
||||
Me.lblRestorePathData.Name = "lblRestorePathData"
|
||||
Me.lblRestorePathData.Size = New System.Drawing.Size(387, 20)
|
||||
Me.lblRestorePathData.TabIndex = 7
|
||||
Me.lblRestorePathData.Tag = "wipe"
|
||||
Me.lblRestorePathData.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'lblBackupFileData
|
||||
'
|
||||
Me.lblBackupFileData.AutoEllipsis = True
|
||||
Me.lblBackupFileData.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.lblBackupFileData.Location = New System.Drawing.Point(96, 73)
|
||||
Me.lblBackupFileData.Name = "lblBackupFileData"
|
||||
Me.lblBackupFileData.Size = New System.Drawing.Size(387, 20)
|
||||
Me.lblBackupFileData.TabIndex = 6
|
||||
Me.lblBackupFileData.Tag = "wipe"
|
||||
Me.lblBackupFileData.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'lblLocalBackupData
|
||||
'
|
||||
Me.lblLocalBackupData.AutoEllipsis = True
|
||||
Me.lblLocalBackupData.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.lblLocalBackupData.Location = New System.Drawing.Point(96, 49)
|
||||
Me.lblLocalBackupData.Name = "lblLocalBackupData"
|
||||
Me.lblLocalBackupData.Size = New System.Drawing.Size(387, 20)
|
||||
Me.lblLocalBackupData.TabIndex = 5
|
||||
Me.lblLocalBackupData.Tag = "wipe"
|
||||
Me.lblLocalBackupData.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
'
|
||||
'lblRestorePath
|
||||
'
|
||||
Me.lblRestorePath.AutoSize = True
|
||||
@@ -496,122 +565,77 @@ Partial Class frmGameManager
|
||||
Me.lblRestorePath.TabIndex = 3
|
||||
Me.lblRestorePath.Text = "Restore Path:"
|
||||
'
|
||||
'txtRestorePath
|
||||
'
|
||||
Me.txtRestorePath.Location = New System.Drawing.Point(96, 99)
|
||||
Me.txtRestorePath.Name = "txtRestorePath"
|
||||
Me.txtRestorePath.ReadOnly = True
|
||||
Me.txtRestorePath.Size = New System.Drawing.Size(387, 20)
|
||||
Me.txtRestorePath.TabIndex = 8
|
||||
'
|
||||
'btnOpenRestorePath
|
||||
'
|
||||
Me.btnOpenRestorePath.Location = New System.Drawing.Point(339, 125)
|
||||
Me.btnOpenRestorePath.Location = New System.Drawing.Point(369, 125)
|
||||
Me.btnOpenRestorePath.Name = "btnOpenRestorePath"
|
||||
Me.btnOpenRestorePath.Size = New System.Drawing.Size(114, 23)
|
||||
Me.btnOpenRestorePath.TabIndex = 12
|
||||
Me.btnOpenRestorePath.TabIndex = 11
|
||||
Me.btnOpenRestorePath.Text = "O&pen Restore Path"
|
||||
Me.btnOpenRestorePath.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnOpenBackupFile
|
||||
'
|
||||
Me.btnOpenBackupFile.Location = New System.Drawing.Point(216, 125)
|
||||
Me.btnOpenBackupFile.Location = New System.Drawing.Point(249, 125)
|
||||
Me.btnOpenBackupFile.Name = "btnOpenBackupFile"
|
||||
Me.btnOpenBackupFile.Size = New System.Drawing.Size(114, 23)
|
||||
Me.btnOpenBackupFile.TabIndex = 11
|
||||
Me.btnOpenBackupFile.TabIndex = 10
|
||||
Me.btnOpenBackupFile.Text = "&Open Backup File"
|
||||
Me.btnOpenBackupFile.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtFileSize
|
||||
'
|
||||
Me.txtFileSize.Location = New System.Drawing.Point(96, 74)
|
||||
Me.txtFileSize.Name = "txtFileSize"
|
||||
Me.txtFileSize.ReadOnly = True
|
||||
Me.txtFileSize.Size = New System.Drawing.Size(387, 20)
|
||||
Me.txtFileSize.TabIndex = 7
|
||||
Me.txtFileSize.TabStop = False
|
||||
'
|
||||
'btnDeleteBackup
|
||||
'
|
||||
Me.btnDeleteBackup.Location = New System.Drawing.Point(96, 125)
|
||||
Me.btnDeleteBackup.Location = New System.Drawing.Point(129, 125)
|
||||
Me.btnDeleteBackup.Name = "btnDeleteBackup"
|
||||
Me.btnDeleteBackup.Size = New System.Drawing.Size(114, 23)
|
||||
Me.btnDeleteBackup.TabIndex = 10
|
||||
Me.btnDeleteBackup.TabIndex = 8
|
||||
Me.btnDeleteBackup.Text = "&Delete Backup"
|
||||
Me.btnDeleteBackup.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lblFileSize
|
||||
'lblBackupFile
|
||||
'
|
||||
Me.lblFileSize.AutoSize = True
|
||||
Me.lblFileSize.Location = New System.Drawing.Point(6, 77)
|
||||
Me.lblFileSize.Name = "lblFileSize"
|
||||
Me.lblFileSize.Size = New System.Drawing.Size(70, 13)
|
||||
Me.lblFileSize.TabIndex = 2
|
||||
Me.lblFileSize.Text = "Backup Size:"
|
||||
Me.lblBackupFile.AutoSize = True
|
||||
Me.lblBackupFile.Location = New System.Drawing.Point(6, 77)
|
||||
Me.lblBackupFile.Name = "lblBackupFile"
|
||||
Me.lblBackupFile.Size = New System.Drawing.Size(66, 13)
|
||||
Me.lblBackupFile.TabIndex = 2
|
||||
Me.lblBackupFile.Text = "Backup File:"
|
||||
'
|
||||
'lblSync
|
||||
'lblRemote
|
||||
'
|
||||
Me.lblSync.AutoSize = True
|
||||
Me.lblSync.Location = New System.Drawing.Point(6, 130)
|
||||
Me.lblSync.Name = "lblSync"
|
||||
Me.lblSync.Size = New System.Drawing.Size(62, 13)
|
||||
Me.lblSync.TabIndex = 4
|
||||
Me.lblSync.Text = "Up to Date!"
|
||||
Me.lblSync.Visible = False
|
||||
Me.lblRemote.AutoSize = True
|
||||
Me.lblRemote.Location = New System.Drawing.Point(6, 27)
|
||||
Me.lblRemote.Name = "lblRemote"
|
||||
Me.lblRemote.Size = New System.Drawing.Size(73, 13)
|
||||
Me.lblRemote.TabIndex = 0
|
||||
Me.lblRemote.Text = "Backup Data:"
|
||||
'
|
||||
'txtCurrentBackup
|
||||
'lblLocalData
|
||||
'
|
||||
Me.txtCurrentBackup.Location = New System.Drawing.Point(96, 24)
|
||||
Me.txtCurrentBackup.Name = "txtCurrentBackup"
|
||||
Me.txtCurrentBackup.ReadOnly = True
|
||||
Me.txtCurrentBackup.Size = New System.Drawing.Size(387, 20)
|
||||
Me.txtCurrentBackup.TabIndex = 5
|
||||
Me.txtCurrentBackup.TabStop = False
|
||||
'
|
||||
'lblCurrentBackup
|
||||
'
|
||||
Me.lblCurrentBackup.AutoSize = True
|
||||
Me.lblCurrentBackup.Location = New System.Drawing.Point(6, 27)
|
||||
Me.lblCurrentBackup.Name = "lblCurrentBackup"
|
||||
Me.lblCurrentBackup.Size = New System.Drawing.Size(84, 13)
|
||||
Me.lblCurrentBackup.TabIndex = 0
|
||||
Me.lblCurrentBackup.Text = "Current Backup:"
|
||||
'
|
||||
'txtLocalBackup
|
||||
'
|
||||
Me.txtLocalBackup.Location = New System.Drawing.Point(96, 50)
|
||||
Me.txtLocalBackup.Name = "txtLocalBackup"
|
||||
Me.txtLocalBackup.ReadOnly = True
|
||||
Me.txtLocalBackup.Size = New System.Drawing.Size(387, 20)
|
||||
Me.txtLocalBackup.TabIndex = 6
|
||||
Me.txtLocalBackup.TabStop = False
|
||||
'
|
||||
'lblLastBackup
|
||||
'
|
||||
Me.lblLastBackup.AutoSize = True
|
||||
Me.lblLastBackup.Location = New System.Drawing.Point(6, 53)
|
||||
Me.lblLastBackup.Name = "lblLastBackup"
|
||||
Me.lblLastBackup.Size = New System.Drawing.Size(76, 13)
|
||||
Me.lblLastBackup.TabIndex = 1
|
||||
Me.lblLastBackup.Text = "Local Backup:"
|
||||
Me.lblLocalData.AutoSize = True
|
||||
Me.lblLocalData.Location = New System.Drawing.Point(6, 53)
|
||||
Me.lblLocalData.Name = "lblLocalData"
|
||||
Me.lblLocalData.Size = New System.Drawing.Size(62, 13)
|
||||
Me.lblLocalData.TabIndex = 1
|
||||
Me.lblLocalData.Text = "Local Data:"
|
||||
'
|
||||
'btnMarkAsRestored
|
||||
'
|
||||
Me.btnMarkAsRestored.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnMarkAsRestored.Location = New System.Drawing.Point(429, 525)
|
||||
Me.btnMarkAsRestored.Location = New System.Drawing.Point(429, 526)
|
||||
Me.btnMarkAsRestored.Name = "btnMarkAsRestored"
|
||||
Me.btnMarkAsRestored.Size = New System.Drawing.Size(100, 23)
|
||||
Me.btnMarkAsRestored.TabIndex = 16
|
||||
Me.btnMarkAsRestored.TabIndex = 17
|
||||
Me.btnMarkAsRestored.Text = "&Mark as Restored"
|
||||
Me.btnMarkAsRestored.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnRestore
|
||||
'
|
||||
Me.btnRestore.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnRestore.Location = New System.Drawing.Point(535, 525)
|
||||
Me.btnRestore.Location = New System.Drawing.Point(535, 526)
|
||||
Me.btnRestore.Name = "btnRestore"
|
||||
Me.btnRestore.Size = New System.Drawing.Size(75, 23)
|
||||
Me.btnRestore.TabIndex = 17
|
||||
Me.btnRestore.TabIndex = 18
|
||||
Me.btnRestore.Text = "&Restore"
|
||||
Me.btnRestore.UseVisualStyleBackColor = True
|
||||
'
|
||||
@@ -764,6 +788,25 @@ Partial Class frmGameManager
|
||||
Me.lblQuickFilter.TabIndex = 1
|
||||
Me.lblQuickFilter.Text = "Quick Filter:"
|
||||
'
|
||||
'cmsDeleteBackup
|
||||
'
|
||||
Me.cmsDeleteBackup.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.cmsDeleteOne, Me.cmsDeleteAll})
|
||||
Me.cmsDeleteBackup.Name = "cmsDeleteBackup"
|
||||
Me.cmsDeleteBackup.ShowImageMargin = False
|
||||
Me.cmsDeleteBackup.Size = New System.Drawing.Size(115, 48)
|
||||
'
|
||||
'cmsDeleteOne
|
||||
'
|
||||
Me.cmsDeleteOne.Name = "cmsDeleteOne"
|
||||
Me.cmsDeleteOne.Size = New System.Drawing.Size(114, 22)
|
||||
Me.cmsDeleteOne.Text = "&Selected File"
|
||||
'
|
||||
'cmsDeleteAll
|
||||
'
|
||||
Me.cmsDeleteAll.Name = "cmsDeleteAll"
|
||||
Me.cmsDeleteAll.Size = New System.Drawing.Size(114, 22)
|
||||
Me.cmsDeleteAll.Text = "&All Files"
|
||||
'
|
||||
'frmGameManager
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -798,6 +841,7 @@ Partial Class frmGameManager
|
||||
Me.Text = "Game Manager"
|
||||
Me.grpConfig.ResumeLayout(False)
|
||||
Me.grpConfig.PerformLayout()
|
||||
CType(Me.nudLimit, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.grpExtra.ResumeLayout(False)
|
||||
Me.grpExtra.PerformLayout()
|
||||
CType(Me.pbIcon, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
@@ -807,6 +851,7 @@ Partial Class frmGameManager
|
||||
Me.grpFilter.ResumeLayout(False)
|
||||
Me.grpFilter.PerformLayout()
|
||||
Me.cmsImport.ResumeLayout(False)
|
||||
Me.cmsDeleteBackup.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
@@ -848,14 +893,10 @@ Partial Class frmGameManager
|
||||
Friend WithEvents btnIconBrowse As System.Windows.Forms.Button
|
||||
Friend WithEvents txtIcon As System.Windows.Forms.TextBox
|
||||
Friend WithEvents txtID As System.Windows.Forms.TextBox
|
||||
Friend WithEvents txtCurrentBackup As System.Windows.Forms.TextBox
|
||||
Friend WithEvents lblCurrentBackup As System.Windows.Forms.Label
|
||||
Friend WithEvents txtLocalBackup As System.Windows.Forms.TextBox
|
||||
Friend WithEvents lblLastBackup As System.Windows.Forms.Label
|
||||
Friend WithEvents lblSync As System.Windows.Forms.Label
|
||||
Friend WithEvents lblRemote As System.Windows.Forms.Label
|
||||
Friend WithEvents lblLocalData As System.Windows.Forms.Label
|
||||
Friend WithEvents chkEnabled As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents txtFileSize As System.Windows.Forms.TextBox
|
||||
Friend WithEvents lblFileSize As System.Windows.Forms.Label
|
||||
Friend WithEvents lblBackupFile As System.Windows.Forms.Label
|
||||
Friend WithEvents btnMarkAsRestored As System.Windows.Forms.Button
|
||||
Friend WithEvents btnRestore As System.Windows.Forms.Button
|
||||
Friend WithEvents btnDeleteBackup As System.Windows.Forms.Button
|
||||
@@ -871,7 +912,6 @@ Partial Class frmGameManager
|
||||
Friend WithEvents btnInclude As System.Windows.Forms.Button
|
||||
Friend WithEvents btnExclude As System.Windows.Forms.Button
|
||||
Friend WithEvents lblRestorePath As Label
|
||||
Friend WithEvents txtRestorePath As TextBox
|
||||
Friend WithEvents btnImport As System.Windows.Forms.Button
|
||||
Friend WithEvents btnExport As System.Windows.Forms.Button
|
||||
Friend WithEvents cmsImport As System.Windows.Forms.ContextMenuStrip
|
||||
@@ -879,4 +919,13 @@ Partial Class frmGameManager
|
||||
Friend WithEvents cmsFile As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents txtQuickFilter As TextBox
|
||||
Friend WithEvents lblQuickFilter As Label
|
||||
Friend WithEvents lblLocalBackupData As Label
|
||||
Friend WithEvents lblRestorePathData As Label
|
||||
Friend WithEvents lblBackupFileData As Label
|
||||
Friend WithEvents lblLimit As Label
|
||||
Friend WithEvents nudLimit As NumericUpDown
|
||||
Friend WithEvents cboRemoteBackup As ComboBox
|
||||
Friend WithEvents cmsDeleteBackup As ContextMenuStrip
|
||||
Friend WithEvents cmsDeleteOne As ToolStripMenuItem
|
||||
Friend WithEvents cmsDeleteAll As ToolStripMenuItem
|
||||
End Class
|
||||
|
||||
@@ -120,4 +120,7 @@
|
||||
<metadata name="cmsImport.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="cmsDeleteBackup.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>127, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+229
-153
@@ -11,7 +11,7 @@ Public Class frmGameManager
|
||||
Private bTriggerBackup As Boolean = False
|
||||
Private bTriggerRestore As Boolean = False
|
||||
Private oBackupList As New List(Of clsGame)
|
||||
Private oRestoreList As New List(Of clsGame)
|
||||
Private oRestoreList As New Hashtable
|
||||
Private oAppData As Hashtable
|
||||
Private oLocalBackupData As SortedList
|
||||
Private oRemoteBackupData As SortedList
|
||||
@@ -114,11 +114,11 @@ Public Class frmGameManager
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property RestoreList As List(Of clsGame)
|
||||
Property RestoreList As Hashtable
|
||||
Get
|
||||
Return oRestoreList
|
||||
End Get
|
||||
Set(value As List(Of clsGame))
|
||||
Set(value As Hashtable)
|
||||
oRestoreList = value
|
||||
End Set
|
||||
End Property
|
||||
@@ -142,8 +142,8 @@ Public Class frmGameManager
|
||||
End Property
|
||||
|
||||
Private Sub LoadBackupData()
|
||||
oRemoteBackupData = mgrManifest.ReadManifest(mgrSQLite.Database.Remote)
|
||||
oLocalBackupData = mgrManifest.ReadManifest(mgrSQLite.Database.Local)
|
||||
oRemoteBackupData = mgrManifest.ReadLatestManifest(mgrSQLite.Database.Remote)
|
||||
oLocalBackupData = mgrManifest.ReadLatestManifest(mgrSQLite.Database.Local)
|
||||
End Sub
|
||||
|
||||
Private Function ConvertToRelativePath(ByVal sSavePath As String, ByVal sAppPath As String) As String
|
||||
@@ -160,48 +160,54 @@ Public Class frmGameManager
|
||||
End Function
|
||||
|
||||
Private Sub CheckManifestandUpdate(ByVal oOriginalApp As clsGame, ByVal oNewApp As clsGame)
|
||||
Dim oBackupItem As clsBackup
|
||||
Dim oBackupItems As List(Of clsBackup)
|
||||
Dim sDirectory As String
|
||||
Dim sNewDirectory As String
|
||||
Dim sFileName As String
|
||||
Dim sNewFileName As String
|
||||
|
||||
'If there is a name change, check and update the manifest
|
||||
'If there is a name change, check and update the manifest
|
||||
If oNewApp.Name <> oOriginalApp.Name Then
|
||||
'Local
|
||||
If mgrManifest.DoManifestCheck(oOriginalApp.Name, mgrSQLite.Database.Local) Then
|
||||
oBackupItem = mgrManifest.DoManifestGetByName(oOriginalApp.Name, mgrSQLite.Database.Local)
|
||||
If mgrManifest.DoManifestNameCheck(oOriginalApp.Name, mgrSQLite.Database.Local) Then
|
||||
oBackupItems = mgrManifest.DoManifestGetByName(oOriginalApp.Name, mgrSQLite.Database.Local)
|
||||
'The local manifest will only have one entry per game, therefore this runs only once
|
||||
For Each oBackupItem As clsBackup In oBackupItems
|
||||
'Rename Current Backup File & Folder
|
||||
sFileName = BackupFolder & oBackupItem.FileName
|
||||
|
||||
'Rename Current Backup File & Folder
|
||||
sFileName = BackupFolder & oBackupItem.FileName
|
||||
|
||||
'Rename Backup File
|
||||
sNewFileName = Path.GetDirectoryName(sFileName) & Path.DirectorySeparatorChar & Path.GetFileName(sFileName).Replace(oOriginalApp.Name, oNewApp.Name)
|
||||
If File.Exists(sFileName) Then
|
||||
FileSystem.Rename(sFileName, sNewFileName)
|
||||
End If
|
||||
|
||||
'Rename Directory
|
||||
sDirectory = Path.GetDirectoryName(sFileName)
|
||||
sNewDirectory = sDirectory.Replace(oOriginalApp.Name, oNewApp.Name)
|
||||
If sDirectory <> sNewDirectory Then
|
||||
If Directory.Exists(sDirectory) Then
|
||||
FileSystem.Rename(sDirectory, sNewDirectory)
|
||||
'Rename Backup File
|
||||
sNewFileName = Path.GetDirectoryName(sFileName) & Path.DirectorySeparatorChar & Path.GetFileName(sFileName).Replace(oOriginalApp.Name, oNewApp.Name)
|
||||
If File.Exists(sFileName) Then
|
||||
FileSystem.Rename(sFileName, sNewFileName)
|
||||
End If
|
||||
End If
|
||||
|
||||
oBackupItem.Name = oNewApp.Name
|
||||
oBackupItem.FileName = oBackupItem.FileName.Replace(oOriginalApp.Name, oNewApp.Name)
|
||||
mgrManifest.DoManifestNameUpdate(oOriginalApp.Name, oBackupItem, mgrSQLite.Database.Local)
|
||||
oLocalBackupData = mgrManifest.ReadManifest(mgrSQLite.Database.Local)
|
||||
'Rename Directory
|
||||
sDirectory = Path.GetDirectoryName(sFileName)
|
||||
sNewDirectory = sDirectory.Replace(oOriginalApp.Name, oNewApp.Name)
|
||||
If sDirectory <> sNewDirectory Then
|
||||
If Directory.Exists(sDirectory) Then
|
||||
FileSystem.Rename(sDirectory, sNewDirectory)
|
||||
End If
|
||||
End If
|
||||
|
||||
oBackupItem.Name = oNewApp.Name
|
||||
oBackupItem.FileName = oBackupItem.FileName.Replace(oOriginalApp.Name, oNewApp.Name)
|
||||
mgrManifest.DoManifestUpdateByID(oBackupItem, mgrSQLite.Database.Local)
|
||||
Next
|
||||
oLocalBackupData = mgrManifest.ReadLatestManifest(mgrSQLite.Database.Local)
|
||||
End If
|
||||
|
||||
'Remote
|
||||
If mgrManifest.DoManifestCheck(oOriginalApp.Name, mgrSQLite.Database.Remote) Then
|
||||
oBackupItem = mgrManifest.DoManifestGetByName(oOriginalApp.Name, mgrSQLite.Database.Remote)
|
||||
oBackupItem.Name = oNewApp.Name
|
||||
oBackupItem.FileName = oBackupItem.FileName.Replace(oOriginalApp.Name, oNewApp.Name)
|
||||
mgrManifest.DoManifestNameUpdate(oOriginalApp.Name, oBackupItem, mgrSQLite.Database.Remote)
|
||||
oRemoteBackupData = mgrManifest.ReadManifest(mgrSQLite.Database.Remote)
|
||||
If mgrManifest.DoManifestNameCheck(oOriginalApp.Name, mgrSQLite.Database.Remote) Then
|
||||
oBackupItems = mgrManifest.DoManifestGetByName(oOriginalApp.Name, mgrSQLite.Database.Remote)
|
||||
|
||||
For Each oBackupItem As clsBackup In oBackupItems
|
||||
oBackupItem.Name = oNewApp.Name
|
||||
oBackupItem.FileName = oBackupItem.FileName.Replace(oOriginalApp.Name, oNewApp.Name)
|
||||
mgrManifest.DoManifestUpdateByID(oBackupItem, mgrSQLite.Database.Remote)
|
||||
Next
|
||||
oRemoteBackupData = mgrManifest.ReadLatestManifest(mgrSQLite.Database.Remote)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
@@ -218,7 +224,7 @@ Public Class frmGameManager
|
||||
frm.ShowDialog()
|
||||
oCurrentTagFilters = frm.TagFilters
|
||||
oCurrentStringFilters = frm.StringFilters
|
||||
eCurrentFilter = frm.FilterType
|
||||
eCurrentFilter = frm.FilterType
|
||||
End If
|
||||
Else
|
||||
oCurrentTagFilters.Clear()
|
||||
@@ -281,7 +287,7 @@ Public Class frmGameManager
|
||||
End If
|
||||
End If
|
||||
|
||||
sNewPath = mgrCommon.OpenFileBrowser(frmGameManager_ChooseExe, "exe", _
|
||||
sNewPath = mgrCommon.OpenFileBrowser(frmGameManager_ChooseExe, "exe",
|
||||
frmGameManager_Executable, sDefaultFolder, False)
|
||||
|
||||
If sNewPath <> String.Empty Then
|
||||
@@ -339,10 +345,10 @@ Public Class frmGameManager
|
||||
|
||||
'Unix Handler
|
||||
If Not mgrCommon.IsUnix Then
|
||||
sNewPath = mgrCommon.OpenFileBrowser(frmGameManager_ChooseCustomIcon, "ico", _
|
||||
sNewPath = mgrCommon.OpenFileBrowser(frmGameManager_ChooseCustomIcon, "ico",
|
||||
frmGameManager_Icon, sDefaultFolder, False)
|
||||
Else
|
||||
sNewPath = mgrCommon.OpenFileBrowser(frmGameManager_ChooseCustomIcon, "png", _
|
||||
sNewPath = mgrCommon.OpenFileBrowser(frmGameManager_ChooseCustomIcon, "png",
|
||||
"PNG", sDefaultFolder, False)
|
||||
End If
|
||||
|
||||
@@ -496,12 +502,12 @@ Public Class frmGameManager
|
||||
Dim oProcessStartInfo As ProcessStartInfo
|
||||
|
||||
If CurrentBackupItem.AbsolutePath Then
|
||||
sPath = CurrentBackupItem.RestorePath
|
||||
Else
|
||||
If FindRestorePath() Then
|
||||
sPath = CurrentBackupItem.RelativeRestorePath
|
||||
End If
|
||||
sPath = CurrentBackupItem.RestorePath
|
||||
Else
|
||||
If FindRestorePath() Then
|
||||
sPath = CurrentBackupItem.RelativeRestorePath
|
||||
End If
|
||||
End If
|
||||
|
||||
If Directory.Exists(sPath) Then
|
||||
oProcessStartInfo = New ProcessStartInfo
|
||||
@@ -541,13 +547,49 @@ Public Class frmGameManager
|
||||
ModeChange()
|
||||
End Sub
|
||||
|
||||
Private Sub GetBackupInfo(ByVal oApp As clsGame)
|
||||
Dim oBackupInfo As clsBackup
|
||||
Private Sub UpdateBackupInfo(ByVal sManifestID As String)
|
||||
Dim sFileName As String
|
||||
|
||||
If sManifestID <> String.Empty Then
|
||||
CurrentBackupItem = mgrManifest.DoManifestGetByID(sManifestID, mgrSQLite.Database.Remote)
|
||||
|
||||
sFileName = BackupFolder & CurrentBackupItem.FileName
|
||||
|
||||
If File.Exists(sFileName) Then
|
||||
lblBackupFileData.Text = Path.GetFileName(CurrentBackupItem.FileName) & " (" & mgrCommon.GetFileSize(sFileName) & ")"
|
||||
Else
|
||||
lblBackupFileData.Text = frmGameManager_ErrorNoBackupExists
|
||||
End If
|
||||
|
||||
mgrRestore.DoPathOverride(CurrentBackupItem, CurrentGame)
|
||||
lblRestorePathData.Text = CurrentBackupItem.RestorePath
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub GetBackupInfo(ByVal oApp As clsGame)
|
||||
Dim oBackupInfo As clsBackup
|
||||
Dim oCurrentBackup As clsBackup
|
||||
Dim oCurrentBackups As List(Of clsBackup)
|
||||
Dim sFileName As String
|
||||
Dim oComboItems As New List(Of KeyValuePair(Of String, String))
|
||||
Dim bLocalData As Boolean = False
|
||||
Dim bRemoteData As Boolean = False
|
||||
|
||||
'cboRemoteBackup
|
||||
cboRemoteBackup.ValueMember = "Key"
|
||||
cboRemoteBackup.DisplayMember = "Value"
|
||||
|
||||
If oRemoteBackupData.Contains(oApp.Name) Then
|
||||
bRemoteData = True
|
||||
oCurrentBackups = mgrManifest.DoManifestGetByName(oApp.Name, mgrSQLite.Database.Remote)
|
||||
|
||||
For Each oCurrentBackup In oCurrentBackups
|
||||
oComboItems.Add(New KeyValuePair(Of String, String)(oCurrentBackup.ID, mgrCommon.FormatString(frmGameManager_BackupTimeAndName, New String() {oCurrentBackup.DateUpdated, oCurrentBackup.UpdatedBy})))
|
||||
Next
|
||||
|
||||
CurrentBackupItem = DirectCast(oRemoteBackupData(oApp.Name), clsBackup)
|
||||
txtCurrentBackup.Text = mgrCommon.FormatString(frmGameManager_BackupTimeAndName, New String() {CurrentBackupItem.DateUpdated, CurrentBackupItem.UpdatedBy})
|
||||
|
||||
sFileName = BackupFolder & CurrentBackupItem.FileName
|
||||
|
||||
btnOpenBackupFile.Enabled = True
|
||||
@@ -556,80 +598,95 @@ Public Class frmGameManager
|
||||
btnDeleteBackup.Enabled = True
|
||||
|
||||
If File.Exists(sFileName) Then
|
||||
txtFileSize.Text = mgrCommon.GetFileSize(sFileName)
|
||||
lblBackupFileData.Text = Path.GetFileName(CurrentBackupItem.FileName) & " (" & mgrCommon.GetFileSize(sFileName) & ")"
|
||||
Else
|
||||
txtFileSize.Text = frmGameManager_ErrorNoBackupExists
|
||||
lblBackupFileData.Text = frmGameManager_ErrorNoBackupExists
|
||||
End If
|
||||
|
||||
mgrRestore.DoPathOverride(CurrentBackupItem, oApp)
|
||||
txtRestorePath.Text = CurrentBackupItem.RestorePath
|
||||
lblRestorePathData.Text = CurrentBackupItem.RestorePath
|
||||
Else
|
||||
txtCurrentBackup.Text = frmGameManager_Never
|
||||
txtFileSize.Text = String.Empty
|
||||
txtRestorePath.Text = String.Empty
|
||||
oComboItems.Add(New KeyValuePair(Of String, String)(String.Empty, frmGameManager_None))
|
||||
lblBackupFileData.Text = String.Empty
|
||||
lblRestorePathData.Text = String.Empty
|
||||
btnOpenBackupFile.Enabled = False
|
||||
btnOpenRestorePath.Enabled = False
|
||||
btnRestore.Enabled = False
|
||||
btnDeleteBackup.Enabled = False
|
||||
End If
|
||||
|
||||
cboRemoteBackup.DataSource = oComboItems
|
||||
|
||||
If oLocalBackupData.Contains(oApp.Name) Then
|
||||
bLocalData = True
|
||||
oBackupInfo = DirectCast(oLocalBackupData(oApp.Name), clsBackup)
|
||||
txtLocalBackup.Text = mgrCommon.FormatString(frmGameManager_BackupTimeAndName, New String() {oBackupInfo.DateUpdated, oBackupInfo.UpdatedBy})
|
||||
lblLocalBackupData.Text = mgrCommon.FormatString(frmGameManager_BackupTimeAndName, New String() {oBackupInfo.DateUpdated, oBackupInfo.UpdatedBy})
|
||||
Else
|
||||
txtLocalBackup.Text = frmGameManager_Never
|
||||
lblLocalBackupData.Text = frmGameManager_Unknown
|
||||
End If
|
||||
|
||||
If txtCurrentBackup.Text = frmGameManager_Never And txtLocalBackup.Text = frmGameManager_Never Then
|
||||
lblSync.Visible = False
|
||||
If Not bRemoteData And Not bLocalData Then
|
||||
btnMarkAsRestored.Enabled = False
|
||||
ElseIf txtCurrentBackup.Text = frmGameManager_Never And txtLocalBackup.Text <> frmGameManager_Never Then
|
||||
lblSync.Visible = False
|
||||
lblLocalBackupData.ForeColor = Color.Black
|
||||
ElseIf Not bRemoteData And bLocalData Then
|
||||
btnMarkAsRestored.Enabled = False
|
||||
ElseIf txtCurrentBackup.Text <> txtLocalBackup.Text Then
|
||||
lblSync.ForeColor = Color.Red
|
||||
lblSync.Text = frmGameManager_OutofSync
|
||||
lblSync.Visible = True
|
||||
lblLocalBackupData.ForeColor = Color.Black
|
||||
ElseIf oComboItems(0).Value <> lblLocalBackupData.Text Then
|
||||
lblLocalBackupData.ForeColor = Color.Red
|
||||
btnMarkAsRestored.Enabled = True
|
||||
Else
|
||||
lblSync.ForeColor = Color.Green
|
||||
lblSync.Text = frmGameManager_UpToDate
|
||||
lblSync.Visible = True
|
||||
lblLocalBackupData.ForeColor = Color.Green
|
||||
btnMarkAsRestored.Enabled = False
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub DeleteBackup()
|
||||
Dim oDir As DirectoryInfo
|
||||
Dim sSubDir As String
|
||||
Private Sub DeleteAllBackups()
|
||||
Dim oBackupData As List(Of clsBackup)
|
||||
Dim oBackup As clsBackup
|
||||
|
||||
If mgrCommon.ShowMessage(frmGameManager_ConfirmBackupDelete, CurrentBackupItem.Name, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
|
||||
mgrManifest.DoManifestDelete(CurrentBackupItem, mgrSQLite.Database.Local)
|
||||
mgrManifest.DoManifestDelete(CurrentBackupItem, mgrSQLite.Database.Remote)
|
||||
If mgrCommon.ShowMessage(frmGameManager_ConfirmBackupDeleteAll, CurrentGame.Name, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
|
||||
oBackupData = mgrManifest.DoManifestGetByName(CurrentGame.Name, mgrSQLite.Database.Remote)
|
||||
|
||||
For Each oBackup In oBackupData
|
||||
'Delete the specific remote manifest entry
|
||||
mgrManifest.DoManifestDeletebyID(oBackup, mgrSQLite.Database.Remote)
|
||||
'Delete referenced backup file from the backup folder
|
||||
mgrCommon.DeleteFile(BackupFolder & oBackup.FileName)
|
||||
'Check for sub-directory and delete if empty (we need to do this every pass just in case the user had a mix of settings at one point)
|
||||
mgrCommon.DeleteDirectoryByBackup(BackupFolder, oBackup)
|
||||
Next
|
||||
|
||||
'Delete local manifest entry
|
||||
mgrManifest.DoManifestDeletebyName(CurrentBackupItem, mgrSQLite.Database.Local)
|
||||
|
||||
LoadBackupData()
|
||||
|
||||
If oCurrentGame.Temporary Then
|
||||
LoadData()
|
||||
eCurrentMode = eModes.Disabled
|
||||
ModeChange()
|
||||
Else
|
||||
FillData()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub DeleteBackup()
|
||||
If mgrCommon.ShowMessage(frmGameManager_ConfirmBackupDelete, Path.GetFileName(CurrentBackupItem.FileName), MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
|
||||
'Delete the specific remote manifest entry
|
||||
mgrManifest.DoManifestDeletebyID(CurrentBackupItem, mgrSQLite.Database.Remote)
|
||||
|
||||
'If a remote manifest entry no longer exists for this game, delete the local entry
|
||||
If Not mgrManifest.DoGlobalManifestCheck(CurrentBackupItem.Name, mgrSQLite.Database.Remote) Then
|
||||
mgrManifest.DoManifestDeletebyName(CurrentBackupItem, mgrSQLite.Database.Local)
|
||||
End If
|
||||
|
||||
'Delete referenced backup file from the backup folder
|
||||
mgrCommon.DeleteFile(BackupFolder & CurrentBackupItem.FileName)
|
||||
|
||||
'Check if using backup sub-directories (Probably not the best way to check for this)
|
||||
If CurrentBackupItem.FileName.StartsWith(CurrentBackupItem.Name & Path.DirectorySeparatorChar) Then
|
||||
'Build sub-dir backup path
|
||||
sSubDir = BackupFolder & CurrentBackupItem.Name
|
||||
|
||||
If Directory.Exists(sSubDir) Then
|
||||
'Check if there's any sub-directories or files remaining
|
||||
oDir = New DirectoryInfo(sSubDir)
|
||||
If oDir.GetDirectories.Length > 0 Or oDir.GetFiles.Length > 0 Then
|
||||
'Confirm
|
||||
If mgrCommon.ShowMessage(frmGameManager_ConfirmBackupFolderDelete, New String() {sSubDir, oDir.GetDirectories.Length, oDir.GetFiles.Length}, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
|
||||
If Directory.Exists(sSubDir) Then mgrCommon.DeleteDirectory(sSubDir, True)
|
||||
End If
|
||||
Else
|
||||
'Folder is empty, delete the empty sub-folder
|
||||
If Directory.Exists(sSubDir) Then mgrCommon.DeleteDirectory(sSubDir)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
'Check for sub-directory and delete if empty
|
||||
mgrCommon.DeleteDirectoryByBackup(BackupFolder, CurrentBackupItem)
|
||||
|
||||
LoadBackupData()
|
||||
|
||||
@@ -658,6 +715,7 @@ Public Class frmGameManager
|
||||
txtExclude.Text = oApp.ExcludeList
|
||||
chkFolderSave.Checked = oApp.FolderSave
|
||||
chkTimeStamp.Checked = oApp.AppendTimeStamp
|
||||
nudLimit.Value = oApp.BackupLimit
|
||||
chkEnabled.Checked = oApp.Enabled
|
||||
chkMonitorOnly.Checked = oApp.MonitorOnly
|
||||
|
||||
@@ -729,9 +787,6 @@ Public Class frmGameManager
|
||||
AddHandler DirectCast(ctl, NumericUpDown).ValueChanged, AddressOf DirtyCheck_ValueChanged
|
||||
End If
|
||||
Next
|
||||
|
||||
'Exemptions
|
||||
RemoveHandler txtRestorePath.TextChanged, AddressOf DirtyCheck_ValueChanged
|
||||
End Sub
|
||||
|
||||
Private Sub AssignDirtyHandlersMisc()
|
||||
@@ -745,8 +800,12 @@ Public Class frmGameManager
|
||||
DirectCast(ctl, TextBox).Text = String.Empty
|
||||
ElseIf TypeOf ctl Is CheckBox Then
|
||||
DirectCast(ctl, CheckBox).Checked = False
|
||||
ElseIf TypeOf ctl Is Label Then
|
||||
If ctl.Tag = "wipe" Then DirectCast(ctl, Label).Text = String.Empty
|
||||
ElseIf TypeOf ctl Is NumericUpDown Then
|
||||
DirectCast(ctl, NumericUpDown).Value = 0
|
||||
DirectCast(ctl, NumericUpDown).Value = DirectCast(ctl, NumericUpDown).Minimum
|
||||
ElseIf TypeOf ctl Is ComboBox Then
|
||||
DirectCast(ctl, ComboBox).DataSource = Nothing
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
@@ -780,7 +839,6 @@ Public Class frmGameManager
|
||||
btnDeleteBackup.Enabled = False
|
||||
btnOpenBackupFile.Enabled = False
|
||||
btnOpenRestorePath.Enabled = False
|
||||
lblSync.Visible = False
|
||||
chkEnabled.Checked = True
|
||||
chkMonitorOnly.Checked = False
|
||||
btnTags.Enabled = False
|
||||
@@ -863,7 +921,6 @@ Public Class frmGameManager
|
||||
WipeControls(grpExtra.Controls)
|
||||
WipeControls(grpStats.Controls)
|
||||
pbIcon.Image = Icon_Unknown
|
||||
lblSync.Visible = False
|
||||
btnSave.Enabled = False
|
||||
btnCancel.Enabled = False
|
||||
grpConfig.Enabled = False
|
||||
@@ -890,7 +947,6 @@ Public Class frmGameManager
|
||||
WipeControls(grpExtra.Controls)
|
||||
WipeControls(grpStats.Controls)
|
||||
pbIcon.Image = Icon_Unknown
|
||||
lblSync.Visible = False
|
||||
btnSave.Enabled = True
|
||||
btnCancel.Enabled = False
|
||||
grpConfig.Enabled = False
|
||||
@@ -928,36 +984,15 @@ Public Class frmGameManager
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MonitorOnlyModeChange()
|
||||
If chkMonitorOnly.Checked Then
|
||||
txtSavePath.Text = String.Empty
|
||||
chkFolderSave.Checked = True
|
||||
chkTimeStamp.Checked = False
|
||||
|
||||
If txtFileType.Text <> String.Empty Then
|
||||
txtFileType.Text = String.Empty
|
||||
UpdateBuilderButtonLabel(txtFileType.Text, frmGameManager_IncludeShortcut, btnInclude, False)
|
||||
End If
|
||||
If txtExclude.Text <> String.Empty Then
|
||||
txtExclude.Text = String.Empty
|
||||
UpdateBuilderButtonLabel(txtExclude.Text, frmGameManager_ExcludeShortcut, btnExclude, False)
|
||||
End If
|
||||
|
||||
lblSavePath.Enabled = False
|
||||
btnSavePathBrowse.Enabled = False
|
||||
txtSavePath.Enabled = False
|
||||
chkFolderSave.Enabled = False
|
||||
chkTimeStamp.Enabled = False
|
||||
btnInclude.Enabled = False
|
||||
btnExclude.Enabled = False
|
||||
Private Sub TimeStampModeChange()
|
||||
If chkTimeStamp.Checked Then
|
||||
nudLimit.Visible = True
|
||||
lblLimit.Visible = True
|
||||
nudLimit.Value = 5
|
||||
Else
|
||||
lblSavePath.Enabled = True
|
||||
btnSavePathBrowse.Enabled = True
|
||||
txtSavePath.Enabled = True
|
||||
chkFolderSave.Enabled = True
|
||||
chkTimeStamp.Enabled = True
|
||||
btnInclude.Enabled = True
|
||||
btnExclude.Enabled = True
|
||||
nudLimit.Visible = False
|
||||
nudLimit.Value = nudLimit.Minimum
|
||||
lblLimit.Visible = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -1028,6 +1063,7 @@ Public Class frmGameManager
|
||||
oApp.ExcludeList = txtExclude.Text
|
||||
oApp.FolderSave = chkFolderSave.Checked
|
||||
oApp.AppendTimeStamp = chkTimeStamp.Checked
|
||||
oApp.BackupLimit = nudLimit.Value
|
||||
oApp.Enabled = chkEnabled.Checked
|
||||
oApp.MonitorOnly = chkMonitorOnly.Checked
|
||||
oApp.ProcessPath = txtAppPath.Text
|
||||
@@ -1160,8 +1196,8 @@ Public Class frmGameManager
|
||||
If oMarkList.Count = 1 Then
|
||||
If mgrCommon.ShowMessage(frmGameManager_ConfirmMark, oMarkList(0).Name, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
|
||||
bWasUpdated = True
|
||||
If mgrManifest.DoManifestCheck(oMarkList(0).Name, mgrSQLite.Database.Local) Then
|
||||
mgrManifest.DoManifestUpdate(oMarkList(0), mgrSQLite.Database.Local)
|
||||
If mgrManifest.DoGlobalManifestCheck(oMarkList(0).Name, mgrSQLite.Database.Local) Then
|
||||
mgrManifest.DoManifestUpdateByName(oMarkList(0), mgrSQLite.Database.Local)
|
||||
Else
|
||||
mgrManifest.DoManifestAdd(oMarkList(0), mgrSQLite.Database.Local)
|
||||
End If
|
||||
@@ -1170,8 +1206,8 @@ Public Class frmGameManager
|
||||
If mgrCommon.ShowMessage(frmGameManager_ConfirmMultiMark, oMarkList.Count, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
|
||||
bWasUpdated = True
|
||||
For Each oGameBackup In oMarkList
|
||||
If mgrManifest.DoManifestCheck(oGameBackup.Name, mgrSQLite.Database.Local) Then
|
||||
mgrManifest.DoManifestUpdate(oGameBackup, mgrSQLite.Database.Local)
|
||||
If mgrManifest.DoGlobalManifestCheck(oGameBackup.Name, mgrSQLite.Database.Local) Then
|
||||
mgrManifest.DoManifestUpdateByName(oGameBackup, mgrSQLite.Database.Local)
|
||||
Else
|
||||
mgrManifest.DoManifestAdd(oGameBackup, mgrSQLite.Database.Local)
|
||||
End If
|
||||
@@ -1198,7 +1234,7 @@ Public Class frmGameManager
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub TriggerSelectedBackup()
|
||||
Private Sub TriggerSelectedBackup(Optional ByVal bPrompt As Boolean = True)
|
||||
Dim oData As KeyValuePair(Of String, String)
|
||||
Dim sMsg As String = String.Empty
|
||||
Dim oGame As clsGame
|
||||
@@ -1209,8 +1245,7 @@ Public Class frmGameManager
|
||||
|
||||
For Each oData In lstGames.SelectedItems
|
||||
oGame = DirectCast(AppData(oData.Key), clsGame)
|
||||
'Filter out any games set to monitor only
|
||||
If Not oGame.MonitorOnly Then BackupList.Add(oGame)
|
||||
BackupList.Add(oGame)
|
||||
Next
|
||||
|
||||
If BackupList.Count = 1 Then
|
||||
@@ -1224,7 +1259,12 @@ Public Class frmGameManager
|
||||
End If
|
||||
|
||||
If bDoBackup Then
|
||||
If mgrCommon.ShowMessage(sMsg, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
|
||||
If bPrompt Then
|
||||
If mgrCommon.ShowMessage(sMsg, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
|
||||
TriggerBackup = True
|
||||
Me.Close()
|
||||
End If
|
||||
Else
|
||||
TriggerBackup = True
|
||||
Me.Close()
|
||||
End If
|
||||
@@ -1232,29 +1272,38 @@ Public Class frmGameManager
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub TriggerSelectedRestore()
|
||||
Private Sub TriggerSelectedRestore(Optional ByVal bPrompt As Boolean = True)
|
||||
Dim oData As KeyValuePair(Of String, String)
|
||||
Dim sMsg As String = String.Empty
|
||||
Dim oGame As clsGame
|
||||
Dim oBackup As clsBackup
|
||||
Dim bDoRestore As Boolean = False
|
||||
|
||||
If lstGames.SelectedItems.Count > 0 Then
|
||||
RestoreList.Clear()
|
||||
|
||||
For Each oData In lstGames.SelectedItems
|
||||
If oRemoteBackupData.Contains(oData.Value) Then
|
||||
oGame = DirectCast(AppData(oData.Key), clsGame)
|
||||
'Filter out any games set to monitor only
|
||||
If Not oGame.MonitorOnly Then RestoreList.Add(oGame)
|
||||
End If
|
||||
Next
|
||||
If lstGames.SelectedItems.Count = 1 Then
|
||||
RestoreList.Add(CurrentGame, CurrentBackupItem)
|
||||
Else
|
||||
For Each oData In lstGames.SelectedItems
|
||||
If oRemoteBackupData.Contains(oData.Value) Then
|
||||
oGame = DirectCast(AppData(oData.Key), clsGame)
|
||||
oBackup = DirectCast(oRemoteBackupData(oData.Value), clsBackup)
|
||||
RestoreList.Add(oGame, oBackup)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
If RestoreList.Count = 1 Then
|
||||
bDoRestore = True
|
||||
If Not mgrRestore.CheckManifest(RestoreList(0).Name) Then
|
||||
sMsg = mgrCommon.FormatString(frmGameManager_ConfirmRestoreAnyway, RestoreList(0).Name)
|
||||
oGame = New clsGame
|
||||
For Each de As DictionaryEntry In RestoreList
|
||||
oGame = DirectCast(de.Key, clsGame)
|
||||
Next
|
||||
If Not mgrRestore.CheckManifest(oGame.Name) Then
|
||||
sMsg = mgrCommon.FormatString(frmGameManager_ConfirmRestoreAnyway, oGame.Name)
|
||||
Else
|
||||
sMsg = mgrCommon.FormatString(frmGameManager_ConfirmRestore, RestoreList(0).Name)
|
||||
sMsg = mgrCommon.FormatString(frmGameManager_ConfirmRestore, oGame.Name)
|
||||
End If
|
||||
ElseIf RestoreList.Count > 1 Then
|
||||
bDoRestore = True
|
||||
@@ -1264,7 +1313,12 @@ Public Class frmGameManager
|
||||
End If
|
||||
|
||||
If bDoRestore Then
|
||||
If mgrCommon.ShowMessage(sMsg, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
|
||||
If bPrompt Then
|
||||
If mgrCommon.ShowMessage(sMsg, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
|
||||
TriggerRestore = True
|
||||
Me.Close()
|
||||
End If
|
||||
Else
|
||||
TriggerRestore = True
|
||||
Me.Close()
|
||||
End If
|
||||
@@ -1338,9 +1392,9 @@ Public Class frmGameManager
|
||||
btnOpenRestorePath.Text = frmGameManager_btnOpenRestorePath
|
||||
btnOpenBackupFile.Text = frmGameManager_btnOpenBackupFile
|
||||
btnDeleteBackup.Text = frmGameManager_btnDeleteBackup
|
||||
lblFileSize.Text = frmGameManager_lblFileSize
|
||||
lblCurrentBackup.Text = frmGameManager_lblCurrentBackup
|
||||
lblLastBackup.Text = frmGameManager_lblLastBackup
|
||||
lblBackupFile.Text = frmGameManager_lblBackupFile
|
||||
lblRemote.Text = frmGameManager_lblRemote
|
||||
lblLocalData.Text = frmGameManager_lblLocalData
|
||||
btnIconBrowse.Text = frmGameManager_btnIconBrowse
|
||||
lblVersion.Text = frmGameManager_lblVersion
|
||||
lblCompany.Text = frmGameManager_lblCompany
|
||||
@@ -1364,6 +1418,9 @@ Public Class frmGameManager
|
||||
cmsOfficial.Text = frmGameManager_cmsOfficial
|
||||
cmsFile.Text = frmGameManager_cmsFile
|
||||
lblQuickFilter.Text = frmGameManager_lblQuickFilter
|
||||
lblLimit.Text = frmGameManager_lblLimit
|
||||
cmsDeleteOne.Text = frmGameManager_cmsDeleteOne
|
||||
cmsDeleteAll.Text = frmGameManager_cmsDeleteAll
|
||||
|
||||
'Init Filter Timer
|
||||
tmFilterTimer = New Timer()
|
||||
@@ -1471,9 +1528,21 @@ Public Class frmGameManager
|
||||
End Sub
|
||||
|
||||
Private Sub btnDeleteBackup_Click(sender As Object, e As EventArgs) Handles btnDeleteBackup.Click
|
||||
If cboRemoteBackup.Items.Count > 1 Then
|
||||
cmsDeleteBackup.Show(btnDeleteBackup, New Drawing.Point(btnDeleteBackup.Size.Width - Math.Floor(btnDeleteBackup.Size.Width * 0.1), btnDeleteBackup.Size.Height - Math.Floor(btnDeleteBackup.Size.Height * 0.5)), ToolStripDropDownDirection.AboveRight)
|
||||
Else
|
||||
DeleteBackup()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub cmsDeleteOne_Click(sender As Object, e As EventArgs) Handles cmsDeleteOne.Click
|
||||
DeleteBackup()
|
||||
End Sub
|
||||
|
||||
Private Sub cmsDeleteAll_Click(sender As Object, e As EventArgs) Handles cmsDeleteAll.Click
|
||||
DeleteAllBackups()
|
||||
End Sub
|
||||
|
||||
Private Sub btnMarkAsRestored_Click(sender As Object, e As EventArgs) Handles btnMarkAsRestored.Click
|
||||
MarkAsRestored()
|
||||
End Sub
|
||||
@@ -1505,12 +1574,18 @@ Public Class frmGameManager
|
||||
FolderSaveModeChange()
|
||||
End Sub
|
||||
|
||||
Private Sub chkMonitorOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkMonitorOnly.CheckedChanged
|
||||
MonitorOnlyModeChange()
|
||||
Private Sub chkTimeStamp_CheckedChanged(sender As Object, e As EventArgs) Handles chkTimeStamp.CheckedChanged
|
||||
TimeStampModeChange()
|
||||
End Sub
|
||||
|
||||
Private Sub cboRemoteBackup_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboRemoteBackup.SelectedIndexChanged
|
||||
If Not bIsLoading Then
|
||||
UpdateBackupInfo(DirectCast(cboRemoteBackup.SelectedItem, KeyValuePair(Of String, String)).Key)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnImport_Click(sender As Object, e As EventArgs) Handles btnImport.Click
|
||||
cmsImport.Show(btnImport, New Drawing.Point(70, 11), ToolStripDropDownDirection.AboveRight)
|
||||
cmsImport.Show(btnImport, New Drawing.Point(btnImport.Size.Width - Math.Floor(btnImport.Size.Width * 0.1), btnImport.Size.Height - Math.Floor(btnImport.Size.Height * 0.5)), ToolStripDropDownDirection.AboveRight)
|
||||
End Sub
|
||||
|
||||
Private Sub cmsOfficial_Click(sender As Object, e As EventArgs) Handles cmsOfficial.Click
|
||||
@@ -1542,4 +1617,5 @@ Public Class frmGameManager
|
||||
Private Sub frmGameManager_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
|
||||
txtQuickFilter.Focus()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
@@ -226,6 +226,8 @@ Public Class frmIncludeExclude
|
||||
sNewString = InputBox(frmIncludeExclude_RawEditInfo, mgrCommon.FormatString(frmIncludeExclude_RawEditTitle, FormName), sCurrentString)
|
||||
If sNewString <> String.Empty Then
|
||||
ParseBuilderString(sNewString)
|
||||
Else
|
||||
lstBuilder.Clear()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Generated
+1
-2
@@ -229,7 +229,7 @@ Partial Class frmMain
|
||||
Me.txtLog.Name = "txtLog"
|
||||
Me.txtLog.ReadOnly = True
|
||||
Me.txtLog.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
|
||||
Me.txtLog.Size = New System.Drawing.Size(500, 177)
|
||||
Me.txtLog.Size = New System.Drawing.Size(500, 186)
|
||||
Me.txtLog.TabIndex = 10
|
||||
Me.txtLog.TabStop = False
|
||||
'
|
||||
@@ -538,7 +538,6 @@ Partial Class frmMain
|
||||
Me.Controls.Add(Me.gMonStatusStrip)
|
||||
Me.Controls.Add(Me.gMonMainMenu)
|
||||
Me.Controls.Add(Me.txtLog)
|
||||
Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.KeyPreview = True
|
||||
|
||||
+45
-47
@@ -38,6 +38,8 @@ Public Class frmMain
|
||||
Private sPriorPath As String
|
||||
Private sPriorCompany As String
|
||||
Private sPriorVersion As String
|
||||
Private iFormHeight As Integer
|
||||
Private iLogSpacer As Integer
|
||||
|
||||
'Developer Debug Flags
|
||||
Private bProcessDebugMode As Boolean = False
|
||||
@@ -157,8 +159,7 @@ Public Class frmMain
|
||||
OperationEnded()
|
||||
End Sub
|
||||
|
||||
Private Sub RunRestore(ByVal oRestoreList As List(Of clsGame))
|
||||
Dim oBackupData As SortedList = mgrManifest.ReadManifest(mgrSQLite.Database.Remote)
|
||||
Private Sub RunRestore(ByVal oRestoreList As Hashtable)
|
||||
Dim oGame As clsGame
|
||||
Dim oReadyList As New List(Of clsBackup)
|
||||
Dim oRestoreInfo As clsBackup
|
||||
@@ -168,9 +169,10 @@ Public Class frmMain
|
||||
OperationStarted()
|
||||
|
||||
'Build Restore List
|
||||
For Each oGame In oRestoreList
|
||||
For Each de As DictionaryEntry In oRestoreList
|
||||
bPathVerified = False
|
||||
oRestoreInfo = oBackupData(oGame.Name)
|
||||
oGame = DirectCast(de.Key, clsGame)
|
||||
oRestoreInfo = DirectCast(de.Value, clsBackup)
|
||||
|
||||
If mgrRestore.CheckPath(oRestoreInfo, oGame, bTriggerReload) Then
|
||||
bPathVerified = True
|
||||
@@ -659,9 +661,9 @@ Public Class frmMain
|
||||
|
||||
Private Sub OpenAbout()
|
||||
Dim iProcessType As System.Reflection.ProcessorArchitecture = System.Reflection.AssemblyName.GetAssemblyName(Application.ExecutablePath()).ProcessorArchitecture
|
||||
Dim sVersion As String = My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor
|
||||
Dim sVersion As String = My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Build
|
||||
Dim sProcessType = [Enum].GetName(GetType(System.Reflection.ProcessorArchitecture), iProcessType)
|
||||
Dim sRevision As String = My.Application.Info.Version.Build & "." & My.Application.Info.Version.Revision
|
||||
Dim sRevision As String = My.Application.Info.Version.Revision
|
||||
Dim sConstCopyright As String = Chr(169) & mgrCommon.FormatString(App_Copyright, Now.Year.ToString)
|
||||
|
||||
mgrCommon.ShowMessage(frmMain_About, New String() {sVersion, sProcessType, sRevision, sConstCopyright}, MsgBoxStyle.Information)
|
||||
@@ -813,6 +815,13 @@ Public Class frmMain
|
||||
|
||||
Private Sub LoadAndVerify()
|
||||
|
||||
'If the default utility is missing we cannot continue
|
||||
If Not oBackup.CheckForUtilities(mgrPath.Default7zLocation) Then
|
||||
mgrCommon.ShowMessage(frmMain_Error7zip, MsgBoxStyle.Critical)
|
||||
bInitFail = True
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
'Local Database Check
|
||||
VerifyDBVersion(mgrSQLite.Database.Local)
|
||||
LocalDatabaseCheck()
|
||||
@@ -825,8 +834,8 @@ Public Class frmMain
|
||||
If Not bFirstRun Then
|
||||
'The application cannot continue if this fails
|
||||
If Not VerifyBackupLocation() Then
|
||||
bShutdown = True
|
||||
Me.Close()
|
||||
bInitFail = True
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
'Remote Database Check
|
||||
@@ -857,34 +866,20 @@ Public Class frmMain
|
||||
End If
|
||||
End If
|
||||
|
||||
'If the default utility is missing we cannot continue
|
||||
If Not oBackup.CheckForUtilities(mgrPath.Default7zLocation) Then
|
||||
mgrCommon.ShowMessage(frmMain_Error7zip, MsgBoxStyle.Critical)
|
||||
bShutdown = True
|
||||
Me.Close()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
'Functions that handle buttons, menus and other GUI features on this form
|
||||
Private Sub ToggleLog()
|
||||
If bLogToggle = False Then
|
||||
txtLog.Visible = True
|
||||
|
||||
'Unix Handler
|
||||
If mgrCommon.IsUnix Then
|
||||
Me.Size = New System.Drawing.Size(Me.Size.Width, 440)
|
||||
Else
|
||||
Me.Size = New System.Drawing.Size(Me.Size.Width, 425)
|
||||
End If
|
||||
|
||||
Me.Size = New System.Drawing.Size(Me.Size.Width, iFormHeight)
|
||||
bLogToggle = True
|
||||
btnLogToggle.Text = frmMain_btnToggleLog_Hide
|
||||
txtLog.Select(txtLog.TextLength, 0)
|
||||
txtLog.ScrollToCaret()
|
||||
Else
|
||||
txtLog.Visible = False
|
||||
Me.Size = New System.Drawing.Size(Me.Size.Width, 245)
|
||||
Me.Size = New System.Drawing.Size(Me.Size.Width, Me.Size.Height - (txtLog.Height + iLogSpacer))
|
||||
bLogToggle = False
|
||||
btnLogToggle.Text = frmMain_btnToggleLog_Show
|
||||
End If
|
||||
@@ -1166,7 +1161,9 @@ Public Class frmMain
|
||||
lblLastAction.Text = String.Empty
|
||||
pbTime.SizeMode = PictureBoxSizeMode.AutoSize
|
||||
pbTime.Image = Icon_Clock
|
||||
Me.Size = New System.Drawing.Size(Me.Size.Width, 245)
|
||||
iFormHeight = Me.Size.Height
|
||||
iLogSpacer = gMonStatusStrip.Location.Y - (txtLog.Location.Y + txtLog.Height)
|
||||
Me.Size = New System.Drawing.Size(Me.Size.Width, Me.Size.Height - (txtLog.Height + iLogSpacer))
|
||||
AddHandler mgrMonitorList.UpdateLog, AddressOf UpdateLog
|
||||
ResetGameInfo()
|
||||
End Sub
|
||||
@@ -1643,35 +1640,36 @@ Public Class frmMain
|
||||
SetForm()
|
||||
VerifyGameDataPath()
|
||||
LoadAndVerify()
|
||||
VerifyCustomPathVariables()
|
||||
If Not bInitFail Then
|
||||
VerifyCustomPathVariables()
|
||||
|
||||
If oSettings.StartToTray And Not mgrCommon.IsUnix Then
|
||||
bShowToggle = False
|
||||
Me.Visible = False
|
||||
Me.ShowInTaskbar = False
|
||||
If oSettings.StartToTray And Not mgrCommon.IsUnix Then
|
||||
bShowToggle = False
|
||||
Me.Visible = False
|
||||
Me.ShowInTaskbar = False
|
||||
End If
|
||||
|
||||
If oSettings.MonitorOnStartup Then
|
||||
eCurrentStatus = eStatus.Stopped
|
||||
Else
|
||||
eCurrentStatus = eStatus.Running
|
||||
End If
|
||||
|
||||
HandleScan()
|
||||
CheckForNewBackups()
|
||||
|
||||
'Unix Handler
|
||||
If mgrCommon.IsUnix Then
|
||||
Me.MinimizeBox = True
|
||||
Else
|
||||
Me.gMonTray.Visible = True
|
||||
End If
|
||||
End If
|
||||
|
||||
If oSettings.MonitorOnStartup Then
|
||||
eCurrentStatus = eStatus.Stopped
|
||||
Else
|
||||
eCurrentStatus = eStatus.Running
|
||||
End If
|
||||
|
||||
HandleScan()
|
||||
CheckForNewBackups()
|
||||
Catch ex As Exception
|
||||
If mgrCommon.ShowMessage(frmMain_ErrorInitFailure, ex.Message, MsgBoxStyle.YesNo) = MsgBoxResult.No Then
|
||||
bInitFail = True
|
||||
End If
|
||||
End Try
|
||||
|
||||
'Unix Handler
|
||||
If mgrCommon.IsUnix Then
|
||||
Me.MinimizeBox = True
|
||||
Else
|
||||
Me.gMonTray.Visible = True
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
|
||||
|
||||
Generated
-105
@@ -1,105 +0,0 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmManifestViewer
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.dgView = New System.Windows.Forms.DataGridView()
|
||||
Me.btnCancel = New System.Windows.Forms.Button()
|
||||
Me.lblError = New System.Windows.Forms.Label()
|
||||
Me.fbBrowser = New System.Windows.Forms.FolderBrowserDialog()
|
||||
Me.cboManifest = New System.Windows.Forms.ComboBox()
|
||||
CType(Me.dgView, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'dgView
|
||||
'
|
||||
Me.dgView.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.dgView.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
|
||||
Me.dgView.BackgroundColor = System.Drawing.SystemColors.Window
|
||||
Me.dgView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgView.Location = New System.Drawing.Point(12, 12)
|
||||
Me.dgView.Name = "dgView"
|
||||
Me.dgView.RowHeadersVisible = False
|
||||
Me.dgView.Size = New System.Drawing.Size(960, 338)
|
||||
Me.dgView.TabIndex = 0
|
||||
'
|
||||
'btnCancel
|
||||
'
|
||||
Me.btnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnCancel.Location = New System.Drawing.Point(897, 356)
|
||||
Me.btnCancel.Name = "btnCancel"
|
||||
Me.btnCancel.Size = New System.Drawing.Size(75, 23)
|
||||
Me.btnCancel.TabIndex = 2
|
||||
Me.btnCancel.Text = "C&lose"
|
||||
Me.btnCancel.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lblError
|
||||
'
|
||||
Me.lblError.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.lblError.AutoSize = True
|
||||
Me.lblError.Location = New System.Drawing.Point(139, 362)
|
||||
Me.lblError.Name = "lblError"
|
||||
Me.lblError.Size = New System.Drawing.Size(54, 13)
|
||||
Me.lblError.TabIndex = 5
|
||||
Me.lblError.Text = "Info Label"
|
||||
'
|
||||
'fbBrowser
|
||||
'
|
||||
Me.fbBrowser.ShowNewFolderButton = False
|
||||
'
|
||||
'cboManifest
|
||||
'
|
||||
Me.cboManifest.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.cboManifest.FormattingEnabled = True
|
||||
Me.cboManifest.Location = New System.Drawing.Point(12, 359)
|
||||
Me.cboManifest.Name = "cboManifest"
|
||||
Me.cboManifest.Size = New System.Drawing.Size(121, 21)
|
||||
Me.cboManifest.TabIndex = 6
|
||||
'
|
||||
'frmManifestViewer
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(984, 392)
|
||||
Me.Controls.Add(Me.cboManifest)
|
||||
Me.Controls.Add(Me.lblError)
|
||||
Me.Controls.Add(Me.btnCancel)
|
||||
Me.Controls.Add(Me.dgView)
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "frmManifestViewer"
|
||||
Me.ShowIcon = False
|
||||
Me.ShowInTaskbar = False
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "Manifest Viewer"
|
||||
CType(Me.dgView, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents dgView As System.Windows.Forms.DataGridView
|
||||
Friend WithEvents btnCancel As System.Windows.Forms.Button
|
||||
Friend WithEvents lblError As System.Windows.Forms.Label
|
||||
Friend WithEvents fbBrowser As System.Windows.Forms.FolderBrowserDialog
|
||||
Friend WithEvents cboManifest As System.Windows.Forms.ComboBox
|
||||
End Class
|
||||
@@ -1,123 +0,0 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="fbBrowser.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
@@ -1,149 +0,0 @@
|
||||
Public Class frmManifestViewer
|
||||
|
||||
Private bShutdown As Boolean = False
|
||||
Private oLocalManifest As SortedList
|
||||
Private oRemoteManfiest As SortedList
|
||||
Private oRestoreInfo As clsBackup
|
||||
Private oDataTable As DataTable
|
||||
|
||||
Property RestoreInfo As clsBackup
|
||||
Get
|
||||
Return oRestoreInfo
|
||||
End Get
|
||||
Set(value As clsBackup)
|
||||
oRestoreInfo = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property LocalManifestData As SortedList
|
||||
Get
|
||||
Return oLocalManifest
|
||||
End Get
|
||||
Set(value As SortedList)
|
||||
oLocalManifest = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property RemoteManifestData As SortedList
|
||||
Get
|
||||
Return oRemoteManfiest
|
||||
End Get
|
||||
Set(value As SortedList)
|
||||
oRemoteManfiest = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Sub FormatManifest(ByVal iManifest As Integer)
|
||||
Dim oRow As Object()
|
||||
Dim oLoadData As SortedList
|
||||
|
||||
If iManifest = 1 Then
|
||||
oLoadData = LocalManifestData
|
||||
Else
|
||||
oLoadData = RemoteManifestData
|
||||
End If
|
||||
|
||||
oDataTable = New DataTable
|
||||
|
||||
'Setup Columns
|
||||
oDataTable.Columns.Add("Name")
|
||||
oDataTable.Columns.Add("Backup Path")
|
||||
oDataTable.Columns.Add("Restore Path")
|
||||
oDataTable.Columns.Add("Absolute Path")
|
||||
oDataTable.Columns.Add("Date Updated")
|
||||
oDataTable.Columns.Add("Updated By")
|
||||
|
||||
|
||||
'Setup Data Types
|
||||
oDataTable.Columns(0).DataType = GetType(String)
|
||||
oDataTable.Columns(1).DataType = GetType(String)
|
||||
oDataTable.Columns(2).DataType = GetType(String)
|
||||
oDataTable.Columns(3).DataType = GetType(Boolean)
|
||||
oDataTable.Columns(4).DataType = GetType(DateTime)
|
||||
oDataTable.Columns(5).DataType = GetType(String)
|
||||
|
||||
|
||||
|
||||
For Each o As clsBackup In oLoadData.Values
|
||||
oRow = New Object() {o.Name, o.FileName, o.RestorePath, o.AbsolutePath, o.DateUpdated, o.UpdatedBy}
|
||||
oDataTable.Rows.Add(oRow)
|
||||
Next
|
||||
|
||||
'Sort
|
||||
oDataTable.DefaultView.Sort = "Name asc"
|
||||
dgView.DataSource = oDataTable
|
||||
|
||||
'Setup Column Widths
|
||||
dgView.Columns(0).MinimumWidth = 100
|
||||
dgView.Columns(1).MinimumWidth = 175
|
||||
dgView.Columns(2).MinimumWidth = 175
|
||||
dgView.Columns(3).MinimumWidth = 60
|
||||
dgView.Columns(4).MinimumWidth = 125
|
||||
dgView.Columns(5).MinimumWidth = 100
|
||||
|
||||
dgView.Columns(0).FillWeight = 100
|
||||
dgView.Columns(1).FillWeight = 100
|
||||
dgView.Columns(2).FillWeight = 100
|
||||
dgView.Columns(3).FillWeight = 25
|
||||
dgView.Columns(4).FillWeight = 50
|
||||
dgView.Columns(5).FillWeight = 50
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub LoadCombo()
|
||||
Dim oCombo As New List(Of KeyValuePair(Of Integer, String))
|
||||
oCombo.Add(New KeyValuePair(Of Integer, String)(1, "Local Manifest"))
|
||||
oCombo.Add(New KeyValuePair(Of Integer, String)(2, "Remote Manifest"))
|
||||
cboManifest.DataSource = oCombo
|
||||
cboManifest.ValueMember = "key"
|
||||
cboManifest.DisplayMember = "value"
|
||||
End Sub
|
||||
|
||||
Private Sub frmManifestInfo_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
|
||||
dgView.ReadOnly = True
|
||||
dgView.AllowUserToAddRows = False
|
||||
lblError.Text = String.Empty
|
||||
LoadCombo()
|
||||
FormatManifest(CInt(cboManifest.SelectedValue))
|
||||
End Sub
|
||||
|
||||
Private Sub dgView_CellStateChanged(sender As Object, e As DataGridViewCellStateChangedEventArgs) Handles dgView.CellStateChanged
|
||||
lblError.ForeColor = Color.Black
|
||||
|
||||
Select Case dgView.Columns(e.Cell.ColumnIndex).Index
|
||||
Case 0
|
||||
lblError.Text = "The name of the application."
|
||||
Case 1
|
||||
lblError.Text = "The location of the backup file to restore."
|
||||
Case 2
|
||||
lblError.Text = "When the backup file was updated from this computer."
|
||||
Case 3
|
||||
lblError.Text = "The name of this computer."
|
||||
Case 4
|
||||
lblError.Text = "When the local backup file was last updated."
|
||||
Case 5
|
||||
lblError.Text = "The name of the computer that performed the last backup."
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub frmGameInfo_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
|
||||
|
||||
If Not bShutdown Then
|
||||
If MsgBox("Are you sure you want to close?", MsgBoxStyle.YesNo, "ABM") = MsgBoxResult.Yes Then
|
||||
bShutdown = True
|
||||
End If
|
||||
End If
|
||||
|
||||
If Not bShutdown Then
|
||||
e.Cancel = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub cboManifest_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles cboManifest.SelectionChangeCommitted
|
||||
FormatManifest(CInt(cboManifest.SelectedValue))
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+2
-2
@@ -104,9 +104,9 @@ Partial Class frmSyncFields
|
||||
Me.chkTimeStamp.AutoSize = True
|
||||
Me.chkTimeStamp.Location = New System.Drawing.Point(6, 19)
|
||||
Me.chkTimeStamp.Name = "chkTimeStamp"
|
||||
Me.chkTimeStamp.Size = New System.Drawing.Size(146, 17)
|
||||
Me.chkTimeStamp.Size = New System.Drawing.Size(133, 17)
|
||||
Me.chkTimeStamp.TabIndex = 0
|
||||
Me.chkTimeStamp.Text = "Time stamp each backup"
|
||||
Me.chkTimeStamp.Text = "Save multiple backups"
|
||||
Me.chkTimeStamp.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnCancel
|
||||
|
||||
@@ -3,7 +3,7 @@
|
||||
License for use and distribution
|
||||
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
||||
|
||||
Copyright (C) 1999-2015 Igor Pavlov.
|
||||
Copyright (C) 1999-2016 Igor Pavlov.
|
||||
|
||||
7-Zip Extra files are under the GNU LGPL license.
|
||||
|
||||
|
||||
@@ -1,5 +1,5 @@
|
||||
GBM - Game Backup Monitor
|
||||
Copyright (C) 2015 Michael J. Seiferling
|
||||
Copyright (C) 2016 Michael J. Seiferling
|
||||
|
||||
This program is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
@@ -16,4 +16,4 @@ along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
Contact Information:
|
||||
|
||||
mseiferling@gmail.com
|
||||
gamebackupmonitor@gmail.com
|
||||
@@ -50,15 +50,15 @@ Public Class mgrBackup
|
||||
oItem.CheckSum = sCheckSum
|
||||
|
||||
'Save Remote Manifest
|
||||
If mgrManifest.DoManifestCheck(oItem.Name, mgrSQLite.Database.Remote) Then
|
||||
mgrManifest.DoManifestUpdate(oItem, mgrSQLite.Database.Remote)
|
||||
If mgrManifest.DoSpecificManifestCheck(oItem, mgrSQLite.Database.Remote) Then
|
||||
mgrManifest.DoManifestUpdateByID(oItem, mgrSQLite.Database.Remote)
|
||||
Else
|
||||
mgrManifest.DoManifestAdd(oItem, mgrSQLite.Database.Remote)
|
||||
End If
|
||||
|
||||
'Save Local Manifest
|
||||
If mgrManifest.DoManifestCheck(oItem.Name, mgrSQLite.Database.Local) Then
|
||||
mgrManifest.DoManifestUpdate(oItem, mgrSQLite.Database.Local)
|
||||
If mgrManifest.DoGlobalManifestCheck(oItem.Name, mgrSQLite.Database.Local) Then
|
||||
mgrManifest.DoManifestUpdateByName(oItem, mgrSQLite.Database.Local)
|
||||
Else
|
||||
mgrManifest.DoManifestAdd(oItem, mgrSQLite.Database.Local)
|
||||
End If
|
||||
@@ -107,6 +107,33 @@ Public Class mgrBackup
|
||||
Return True
|
||||
End Function
|
||||
|
||||
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
|
||||
Dim iBackupCount As Integer = oGameBackups.Count
|
||||
Dim iDelCount As Integer
|
||||
|
||||
'If we've hit or exceeded the maximum backup limit
|
||||
If oGameBackups.Count >= oGame.BackupLimit Then
|
||||
'How many do we need to delete
|
||||
iDelCount = (oGameBackups.Count - oGame.BackupLimit) + 1
|
||||
|
||||
'Delete the oldest backup(s) (Manifest entry and backup file)
|
||||
For i = 1 To iDelCount
|
||||
oGameBackup = oGameBackups(oGameBackups.Count - i)
|
||||
sOldBackup = Settings.BackupFolder & Path.DirectorySeparatorChar & oGameBackup.FileName
|
||||
|
||||
mgrManifest.DoManifestDeletebyID(oGameBackup, mgrSQLite.Database.Remote)
|
||||
mgrManifest.DoManifestDeletebyID(oGameBackup, mgrSQLite.Database.Local)
|
||||
mgrCommon.DeleteFile(sOldBackup)
|
||||
mgrCommon.DeleteDirectoryByBackup(Settings.BackupFolder & Path.DirectorySeparatorChar, oGameBackup)
|
||||
|
||||
RaiseEvent UpdateLog(mgrCommon.FormatString(mgrBackup_BackupLimitExceeded, Path.GetFileName(sOldBackup)), False, ToolTipIcon.Info, True)
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub DoBackup(ByVal oBackupList As List(Of clsGame))
|
||||
Dim oGame As clsGame
|
||||
Dim bDoBackup As Boolean
|
||||
@@ -144,6 +171,7 @@ Public Class mgrBackup
|
||||
End If
|
||||
|
||||
If oGame.AppendTimeStamp Then
|
||||
CheckOldBackups(oGame)
|
||||
sBackupFile = sBackupFile & Path.DirectorySeparatorChar & oGame.Name & sTimeStamp & ".7z"
|
||||
Else
|
||||
sBackupFile = sBackupFile & Path.DirectorySeparatorChar & oGame.Name & ".7z"
|
||||
|
||||
@@ -30,7 +30,7 @@ Public Class mgrCommon
|
||||
|
||||
Public Shared ReadOnly Property AppVersion As Integer
|
||||
Get
|
||||
Return (My.Application.Info.Version.Major * 100) + My.Application.Info.Version.Minor
|
||||
Return (My.Application.Info.Version.Major * 100) + (My.Application.Info.Version.Minor * 10) + My.Application.Info.Version.Build
|
||||
End Get
|
||||
End Property
|
||||
|
||||
@@ -191,6 +191,24 @@ Public Class mgrCommon
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'Delete a sub-folder based on the provided backup information
|
||||
Public Shared Sub DeleteDirectoryByBackup(ByVal sBackupFolder As String, ByVal oBackup As clsBackup)
|
||||
Dim oDir As DirectoryInfo
|
||||
Dim sDir As String = sBackupFolder & oBackup.Name
|
||||
|
||||
'Delete sub directory if it's empty
|
||||
If oBackup.FileName.StartsWith(oBackup.Name & Path.DirectorySeparatorChar) Then
|
||||
If Directory.Exists(sDir) Then
|
||||
'Check if there's any sub-directories or files remaining
|
||||
oDir = New DirectoryInfo(sDir)
|
||||
If oDir.GetDirectories.Length = 0 And oDir.GetFiles.Length = 0 Then
|
||||
'Folder is empty, delete the empty sub-folder
|
||||
If Directory.Exists(sDir) Then DeleteDirectory(sDir)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'Save string as text file
|
||||
Public Shared Sub SaveText(ByVal sText As String, ByVal sPath As String)
|
||||
Dim oStream As StreamWriter
|
||||
|
||||
@@ -1,4 +0,0 @@
|
||||
Public Class mgrGlobals
|
||||
Public Shared LocalDatabaseHash As String = String.Empty
|
||||
Public Shared RemoteDatabaseHash As String = String.Empty
|
||||
End Class
|
||||
+157
-57
@@ -1,6 +1,37 @@
|
||||
Public Class mgrManifest
|
||||
|
||||
Public Shared Function ReadManifest(ByVal iSelectDB As mgrSQLite.Database) As SortedList
|
||||
Private Shared Function MapToObject(ByVal dr As DataRow) As clsBackup
|
||||
Dim oBackupItem As clsBackup
|
||||
|
||||
oBackupItem = New clsBackup
|
||||
oBackupItem.ID = CStr(dr("ManifestID"))
|
||||
oBackupItem.Name = CStr(dr("Name"))
|
||||
oBackupItem.FileName = CStr(dr("FileName"))
|
||||
oBackupItem.RestorePath = CStr(dr("RestorePath"))
|
||||
oBackupItem.AbsolutePath = CBool(dr("AbsolutePath"))
|
||||
oBackupItem.DateUpdated = mgrCommon.UnixToDate(dr("DateUpdated"))
|
||||
oBackupItem.UpdatedBy = CStr(dr("UpdatedBy"))
|
||||
If Not IsDBNull(dr("CheckSum")) Then oBackupItem.CheckSum = CStr(dr("CheckSum"))
|
||||
|
||||
Return oBackupItem
|
||||
End Function
|
||||
|
||||
Private Shared Function SetCoreParameters(ByVal oBackupItem As clsBackup) As Hashtable
|
||||
Dim hshParams As New Hashtable
|
||||
|
||||
hshParams.Add("ID", oBackupItem.ID)
|
||||
hshParams.Add("Name", oBackupItem.Name)
|
||||
hshParams.Add("FileName", oBackupItem.FileName)
|
||||
hshParams.Add("Path", oBackupItem.TruePath)
|
||||
hshParams.Add("AbsolutePath", oBackupItem.AbsolutePath)
|
||||
hshParams.Add("DateUpdated", oBackupItem.DateUpdatedUnix)
|
||||
hshParams.Add("UpdatedBy", oBackupItem.UpdatedBy)
|
||||
hshParams.Add("CheckSum", oBackupItem.CheckSum)
|
||||
|
||||
Return hshParams
|
||||
End Function
|
||||
|
||||
Public Shared Function ReadFullManifest(ByVal iSelectDB As mgrSQLite.Database) As SortedList
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim oData As DataSet
|
||||
Dim sSQL As String
|
||||
@@ -11,15 +42,26 @@
|
||||
oData = oDatabase.ReadParamData(sSQL, New Hashtable)
|
||||
|
||||
For Each dr As DataRow In oData.Tables(0).Rows
|
||||
oBackupItem = New clsBackup
|
||||
oBackupItem.ID = CStr(dr("ManifestID"))
|
||||
oBackupItem.Name = CStr(dr("Name"))
|
||||
oBackupItem.FileName = CStr(dr("FileName"))
|
||||
oBackupItem.RestorePath = CStr(dr("RestorePath"))
|
||||
oBackupItem.AbsolutePath = CBool(dr("AbsolutePath"))
|
||||
oBackupItem.DateUpdated = mgrCommon.UnixToDate(dr("DateUpdated"))
|
||||
oBackupItem.UpdatedBy = CStr(dr("UpdatedBy"))
|
||||
If Not IsDBNull(dr("CheckSum")) Then oBackupItem.CheckSum = CStr(dr("CheckSum"))
|
||||
oBackupItem = MapToObject(dr)
|
||||
slList.Add(oBackupItem.ID, oBackupItem)
|
||||
Next
|
||||
|
||||
Return slList
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function ReadLatestManifest(ByVal iSelectDB As mgrSQLite.Database) As SortedList
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim oData As DataSet
|
||||
Dim sSQL As String
|
||||
Dim oBackupItem As clsBackup
|
||||
Dim slList As New SortedList
|
||||
|
||||
sSQL = "SELECT ManifestID, Name, FileName, RestorePath, AbsolutePath, Max(DateUpdated) As DateUpdated, UpdatedBy, CheckSum FROM manifest GROUP BY Name ORDER By Name ASC"
|
||||
oData = oDatabase.ReadParamData(sSQL, New Hashtable)
|
||||
|
||||
For Each dr As DataRow In oData.Tables(0).Rows
|
||||
oBackupItem = MapToObject(dr)
|
||||
slList.Add(oBackupItem.Name, oBackupItem)
|
||||
Next
|
||||
|
||||
@@ -27,7 +69,80 @@
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function DoManifestCheck(ByVal sName As String, ByVal iSelectDB As mgrSQLite.Database) As Boolean
|
||||
Public Shared Function DoManifestGetByName(ByVal sName As String, ByVal iSelectDB As mgrSQLite.Database) As List(Of clsBackup)
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim oData As DataSet
|
||||
Dim sSQL As String
|
||||
Dim hshParams As New Hashtable
|
||||
Dim oBackupItem As New clsBackup
|
||||
Dim oList As New List(Of clsBackup)
|
||||
|
||||
|
||||
sSQL = "SELECT * from manifest "
|
||||
sSQL &= "WHERE Name = @Name ORDER BY DateUpdated Desc"
|
||||
|
||||
hshParams.Add("Name", sName)
|
||||
|
||||
oData = oDatabase.ReadParamData(sSQL, hshParams)
|
||||
|
||||
For Each dr As DataRow In oData.Tables(0).Rows
|
||||
oBackupItem = MapToObject(dr)
|
||||
oList.Add(oBackupItem)
|
||||
Next
|
||||
|
||||
Return oList
|
||||
End Function
|
||||
|
||||
Public Shared Function DoManifestGetByID(ByVal sID As String, ByVal iSelectDB As mgrSQLite.Database) As clsBackup
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim oData As DataSet
|
||||
Dim sSQL As String
|
||||
Dim hshParams As New Hashtable
|
||||
Dim oBackupItem As New clsBackup
|
||||
Dim oList As New List(Of clsBackup)
|
||||
|
||||
sSQL = "SELECT * from manifest "
|
||||
sSQL &= "WHERE ManifestID = @ID ORDER BY DateUpdated Desc"
|
||||
|
||||
hshParams.Add("ID", sID)
|
||||
|
||||
oData = oDatabase.ReadParamData(sSQL, hshParams)
|
||||
|
||||
For Each dr As DataRow In oData.Tables(0).Rows
|
||||
oBackupItem = MapToObject(dr)
|
||||
Next
|
||||
|
||||
Return oBackupItem
|
||||
End Function
|
||||
|
||||
'This should only be used to update specific entries in the remote manifest
|
||||
Public Shared Function DoSpecificManifestCheck(ByRef oItem As clsBackup, ByVal iSelectDB As mgrSQLite.Database) As Boolean
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim oData As DataSet
|
||||
Dim sSQL As String
|
||||
Dim hshParams As New Hashtable
|
||||
|
||||
sSQL = "SELECT * from manifest "
|
||||
sSQL &= "WHERE Name = @Name AND FileName = @FileName"
|
||||
|
||||
hshParams.Add("Name", oItem.Name)
|
||||
hshParams.Add("FileName", oItem.FileName)
|
||||
|
||||
oData = oDatabase.ReadParamData(sSQL, hshParams)
|
||||
|
||||
If oData.Tables(0).Rows.Count > 0 Then
|
||||
For Each dr As DataRow In oData.Tables(0).Rows
|
||||
oItem.ID = CStr(dr("ManifestID"))
|
||||
Next
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
End Function
|
||||
|
||||
'This should only be used to update entries in the local manifest
|
||||
Public Shared Function DoGlobalManifestCheck(ByVal sName As String, ByVal iSelectDB As mgrSQLite.Database) As Boolean
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim oData As DataSet
|
||||
Dim sSQL As String
|
||||
@@ -48,12 +163,11 @@
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function DoManifestGetByName(ByVal sName As String, ByVal iSelectDB As mgrSQLite.Database) As clsBackup
|
||||
Public Shared Function DoManifestNameCheck(ByVal sName As String, ByVal iSelectDB As mgrSQLite.Database) As Boolean
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim oData As DataSet
|
||||
Dim sSQL As String
|
||||
Dim hshParams As New Hashtable
|
||||
Dim oBackupItem As New clsBackup
|
||||
|
||||
sSQL = "SELECT * from manifest "
|
||||
sSQL &= "WHERE Name = @Name"
|
||||
@@ -62,82 +176,55 @@
|
||||
|
||||
oData = oDatabase.ReadParamData(sSQL, hshParams)
|
||||
|
||||
For Each dr As DataRow In oData.Tables(0).Rows
|
||||
oBackupItem = New clsBackup
|
||||
oBackupItem.ID = CStr(dr("ManifestID"))
|
||||
oBackupItem.Name = CStr(dr("Name"))
|
||||
oBackupItem.FileName = CStr(dr("FileName"))
|
||||
oBackupItem.RestorePath = CStr(dr("RestorePath"))
|
||||
oBackupItem.AbsolutePath = CBool(dr("AbsolutePath"))
|
||||
oBackupItem.DateUpdated = mgrCommon.UnixToDate(dr("DateUpdated"))
|
||||
oBackupItem.UpdatedBy = CStr(dr("UpdatedBy"))
|
||||
If Not IsDBNull(dr("CheckSum")) Then oBackupItem.CheckSum = CStr(dr("CheckSum"))
|
||||
Next
|
||||
If oData.Tables(0).Rows.Count > 0 Then
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
Return oBackupItem
|
||||
End Function
|
||||
|
||||
Public Shared Sub DoManifestAdd(ByVal oBackupItem As clsBackup, ByVal iSelectDB As mgrSQLite.Database)
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim sSQL As String
|
||||
Dim hshParams As New Hashtable
|
||||
Dim hshParams As Hashtable
|
||||
|
||||
sSQL = "INSERT OR REPLACE INTO manifest VALUES (@ID, @Name, @FileName, @Path, @AbsolutePath, @DateUpdated, @UpdatedBy, @CheckSum)"
|
||||
sSQL = "INSERT INTO manifest VALUES (@ID, @Name, @FileName, @Path, @AbsolutePath, @DateUpdated, @UpdatedBy, @CheckSum)"
|
||||
|
||||
hshParams.Add("ID", oBackupItem.ID)
|
||||
hshParams.Add("Name", oBackupItem.Name)
|
||||
hshParams.Add("FileName", oBackupItem.FileName)
|
||||
hshParams.Add("Path", oBackupItem.TruePath)
|
||||
hshParams.Add("AbsolutePath", oBackupItem.AbsolutePath)
|
||||
hshParams.Add("DateUpdated", oBackupItem.DateUpdatedUnix)
|
||||
hshParams.Add("UpdatedBy", oBackupItem.UpdatedBy)
|
||||
hshParams.Add("CheckSum", oBackupItem.CheckSum)
|
||||
hshParams = SetCoreParameters(oBackupItem)
|
||||
|
||||
oDatabase.RunParamQuery(sSQL, hshParams)
|
||||
End Sub
|
||||
|
||||
Public Shared Sub DoManifestUpdate(ByVal oBackupItem As clsBackup, ByVal iSelectDB As mgrSQLite.Database)
|
||||
Public Shared Sub DoManifestUpdateByName(ByVal oBackupItem As clsBackup, ByVal iSelectDB As mgrSQLite.Database)
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim sSQL As String
|
||||
Dim hshParams As New Hashtable
|
||||
Dim hshParams As Hashtable
|
||||
|
||||
sSQL = "UPDATE manifest SET Name = @Name, FileName = @FileName, RestorePath = @Path, AbsolutePath = @AbsolutePath, "
|
||||
sSQL &= "DateUpdated = @DateUpdated, UpdatedBy = @UpdatedBy, CheckSum = @CheckSum WHERE Name = @QueryName"
|
||||
|
||||
hshParams.Add("Name", oBackupItem.Name)
|
||||
hshParams.Add("FileName", oBackupItem.FileName)
|
||||
hshParams.Add("Path", oBackupItem.TruePath)
|
||||
hshParams.Add("AbsolutePath", oBackupItem.AbsolutePath)
|
||||
hshParams.Add("DateUpdated", oBackupItem.DateUpdatedUnix)
|
||||
hshParams.Add("UpdatedBy", oBackupItem.UpdatedBy)
|
||||
hshParams.Add("CheckSum", oBackupItem.CheckSum)
|
||||
hshParams = SetCoreParameters(oBackupItem)
|
||||
hshParams.Add("QueryName", oBackupItem.Name)
|
||||
|
||||
oDatabase.RunParamQuery(sSQL, hshParams)
|
||||
End Sub
|
||||
|
||||
Public Shared Sub DoManifestNameUpdate(ByVal sOriginalName As String, ByVal oBackupItem As clsBackup, ByVal iSelectDB As mgrSQLite.Database)
|
||||
Public Shared Sub DoManifestUpdateByID(ByVal oBackupItem As clsBackup, ByVal iSelectDB As mgrSQLite.Database)
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim sSQL As String
|
||||
Dim hshParams As New Hashtable
|
||||
Dim hshParams As Hashtable
|
||||
|
||||
sSQL = "UPDATE manifest SET Name = @Name, FileName = @FileName, RestorePath = @Path, AbsolutePath = @AbsolutePath, "
|
||||
sSQL &= "DateUpdated = @DateUpdated, UpdatedBy = @UpdatedBy, CheckSum = @CheckSum WHERE Name = @QueryName"
|
||||
sSQL &= "DateUpdated = @DateUpdated, UpdatedBy = @UpdatedBy, CheckSum = @CheckSum WHERE ManifestID = @QueryID"
|
||||
|
||||
hshParams.Add("Name", oBackupItem.Name)
|
||||
hshParams.Add("FileName", oBackupItem.FileName)
|
||||
hshParams.Add("Path", oBackupItem.TruePath)
|
||||
hshParams.Add("AbsolutePath", oBackupItem.AbsolutePath)
|
||||
hshParams.Add("DateUpdated", oBackupItem.DateUpdatedUnix)
|
||||
hshParams.Add("UpdatedBy", oBackupItem.UpdatedBy)
|
||||
hshParams.Add("CheckSum", oBackupItem.CheckSum)
|
||||
hshParams.Add("QueryName", sOriginalName)
|
||||
hshParams = SetCoreParameters(oBackupItem)
|
||||
hshParams.Add("QueryID", oBackupItem.ID)
|
||||
|
||||
oDatabase.RunParamQuery(sSQL, hshParams)
|
||||
|
||||
End Sub
|
||||
|
||||
Public Shared Sub DoManifestDelete(ByVal oBackupItem As clsBackup, ByVal iSelectDB As mgrSQLite.Database)
|
||||
Public Shared Sub DoManifestDeletebyName(ByVal oBackupItem As clsBackup, ByVal iSelectDB As mgrSQLite.Database)
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim sSQL As String
|
||||
Dim hshParams As New Hashtable
|
||||
@@ -150,6 +237,19 @@
|
||||
oDatabase.RunParamQuery(sSQL, hshParams)
|
||||
End Sub
|
||||
|
||||
Public Shared Sub DoManifestDeletebyID(ByVal oBackupItem As clsBackup, ByVal iSelectDB As mgrSQLite.Database)
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim sSQL As String
|
||||
Dim hshParams As New Hashtable
|
||||
|
||||
sSQL = "DELETE FROM manifest "
|
||||
sSQL &= "WHERE ManifestID = @ID"
|
||||
|
||||
hshParams.Add("ID", oBackupItem.ID)
|
||||
|
||||
oDatabase.RunParamQuery(sSQL, hshParams)
|
||||
End Sub
|
||||
|
||||
Public Shared Sub DoManifestHashWipe()
|
||||
Dim oLocalDatabase As New mgrSQLite(mgrSQLite.Database.Local)
|
||||
Dim oRemoteDatabase As New mgrSQLite(mgrSQLite.Database.Remote)
|
||||
|
||||
+437
-476
@@ -10,57 +10,261 @@ Public Class mgrMonitorList
|
||||
|
||||
Public Shared Event UpdateLog(sLogUpdate As String, bTrayUpdate As Boolean, objIcon As System.Windows.Forms.ToolTipIcon, bTimeStamp As Boolean)
|
||||
|
||||
Public Shared Sub HandleBackupLocationChange(ByVal oSettings As mgrSettings)
|
||||
Dim oDatabase As New mgrSQLite(mgrSQLite.Database.Remote)
|
||||
Dim iGameCount As Integer
|
||||
Private Shared Function MapToObject(ByVal dr As DataRow) As clsGame
|
||||
Dim oGame As New clsGame
|
||||
|
||||
'Check if a remote database already exists in the new backup location
|
||||
If oDatabase.CheckDB() Then
|
||||
'Make sure database is the latest version
|
||||
oDatabase.DatabaseUpgrade()
|
||||
oGame.ID = CStr(dr("MonitorID"))
|
||||
oGame.Name = CStr(dr("Name"))
|
||||
oGame.ProcessName = CStr(dr("Process"))
|
||||
If Not IsDBNull(dr("Path")) Then oGame.Path = CStr(dr("Path"))
|
||||
oGame.AbsolutePath = CBool(dr("AbsolutePath"))
|
||||
oGame.FolderSave = CBool(dr("FolderSave"))
|
||||
If Not IsDBNull(dr("FileType")) Then oGame.FileType = CStr(dr("FileType"))
|
||||
oGame.AppendTimeStamp = CBool(dr("TimeStamp"))
|
||||
If Not IsDBNull(dr("ExcludeList")) Then oGame.ExcludeList = CStr(dr("ExcludeList"))
|
||||
If Not IsDBNull(dr("ProcessPath")) Then oGame.ProcessPath = CStr(dr("ProcessPath"))
|
||||
If Not IsDBNull(dr("Icon")) Then oGame.Icon = CStr(dr("Icon"))
|
||||
oGame.Hours = CDbl(dr("Hours"))
|
||||
If Not IsDBNull(dr("Version")) Then oGame.Version = CStr(dr("Version"))
|
||||
If Not IsDBNull(dr("Company")) Then oGame.Company = CStr(dr("Company"))
|
||||
oGame.Enabled = CBool(dr("Enabled"))
|
||||
oGame.MonitorOnly = CBool(dr("MonitorOnly"))
|
||||
oGame.BackupLimit = CInt(dr("BackupLimit"))
|
||||
|
||||
'See if the remote database is empty
|
||||
iGameCount = mgrMonitorList.ReadList(eListTypes.FullList, mgrSQLite.Database.Remote).Count
|
||||
Return oGame
|
||||
End Function
|
||||
|
||||
'If the remote database actually contains a list, then ask what to do
|
||||
If iGameCount > 0 Then
|
||||
If mgrCommon.ShowMessage(mgrMonitorList_ConfirmExistingData, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
|
||||
mgrMonitorList.SyncMonitorLists(oSettings.SyncFields)
|
||||
Else
|
||||
mgrMonitorList.SyncMonitorLists(oSettings.SyncFields, False)
|
||||
End If
|
||||
Else
|
||||
mgrMonitorList.SyncMonitorLists(oSettings.SyncFields)
|
||||
End If
|
||||
Private Shared Function SetCoreParameters(ByVal oGame As clsGame) As Hashtable
|
||||
Dim hshParams As New Hashtable
|
||||
|
||||
hshParams.Add("ID", oGame.ID)
|
||||
hshParams.Add("Name", oGame.Name)
|
||||
hshParams.Add("Process", oGame.TrueProcess)
|
||||
hshParams.Add("Path", oGame.TruePath)
|
||||
hshParams.Add("AbsolutePath", oGame.AbsolutePath)
|
||||
hshParams.Add("FolderSave", oGame.FolderSave)
|
||||
hshParams.Add("FileType", oGame.FileType)
|
||||
hshParams.Add("TimeStamp", oGame.AppendTimeStamp)
|
||||
hshParams.Add("ExcludeList", oGame.ExcludeList)
|
||||
hshParams.Add("ProcessPath", oGame.ProcessPath)
|
||||
hshParams.Add("Icon", oGame.Icon)
|
||||
hshParams.Add("Hours", oGame.Hours)
|
||||
hshParams.Add("Version", oGame.Version)
|
||||
hshParams.Add("Company", oGame.Company)
|
||||
hshParams.Add("Enabled", oGame.Enabled)
|
||||
hshParams.Add("MonitorOnly", oGame.MonitorOnly)
|
||||
hshParams.Add("BackupLimit", oGame.BackupLimit)
|
||||
|
||||
Return hshParams
|
||||
End Function
|
||||
|
||||
Public Shared Function ReadList(ByVal eListType As eListTypes, Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local) As Hashtable
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim oData As DataSet
|
||||
Dim sSQL As String
|
||||
Dim hshList As New Hashtable
|
||||
Dim hshDupeList As New Hashtable
|
||||
Dim oGame As clsGame
|
||||
|
||||
sSQL = "Select * from monitorlist ORDER BY Name Asc"
|
||||
oData = oDatabase.ReadParamData(sSQL, New Hashtable)
|
||||
|
||||
For Each dr As DataRow In oData.Tables(0).Rows
|
||||
oGame = MapToObject(dr)
|
||||
Select Case eListType
|
||||
Case eListTypes.FullList
|
||||
'Don't wrap this, if it fails there's a problem with the database
|
||||
hshList.Add(oGame.ProcessName & ":" & oGame.Name, oGame)
|
||||
Case eListTypes.ScanList
|
||||
If hshList.Contains(oGame.ProcessName) Then
|
||||
DirectCast(hshList.Item(oGame.ProcessName), clsGame).Duplicate = True
|
||||
oGame.ProcessName = oGame.ProcessName & ":" & oGame.Name
|
||||
oGame.Duplicate = True
|
||||
End If
|
||||
If oGame.Enabled Then hshList.Add(oGame.ProcessName, oGame)
|
||||
End Select
|
||||
Next
|
||||
|
||||
Return hshList
|
||||
End Function
|
||||
|
||||
Public Shared Sub DoListAdd(ByVal oGame As clsGame, Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local)
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim sSQL As String
|
||||
Dim hshParams As Hashtable
|
||||
|
||||
sSQL = "INSERT INTO monitorlist VALUES (@ID, @Name, @Process, @Path, @AbsolutePath, @FolderSave, @FileType, @TimeStamp, "
|
||||
sSQL &= "@ExcludeList, @ProcessPath, @Icon, @Hours, @Version, @Company, @Enabled, @MonitorOnly, @BackupLimit)"
|
||||
|
||||
'Parameters
|
||||
hshParams = SetCoreParameters(oGame)
|
||||
|
||||
oDatabase.RunParamQuery(sSQL, hshParams)
|
||||
|
||||
End Sub
|
||||
|
||||
Public Shared Sub DoListUpdate(ByVal oGame As clsGame, Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local)
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim sSQL As String
|
||||
Dim hshParams As Hashtable
|
||||
|
||||
sSQL = "UPDATE monitorlist SET Name=@Name, Process=@Process, Path=@Path, AbsolutePath=@AbsolutePath, FolderSave=@FolderSave, "
|
||||
sSQL &= "FileType=@FileType, TimeStamp=@TimeStamp, ExcludeList=@ExcludeList, ProcessPath=@ProcessPath, Icon=@Icon, "
|
||||
sSQL &= "Hours=@Hours, Version=@Version, Company=@Company, Enabled=@Enabled, MonitorOnly=@MonitorOnly, BackupLimit=@BackupLimit WHERE MonitorID=@ID"
|
||||
|
||||
'Parameters
|
||||
hshParams = SetCoreParameters(oGame)
|
||||
|
||||
oDatabase.RunParamQuery(sSQL, hshParams)
|
||||
|
||||
End Sub
|
||||
|
||||
Public Shared Sub DoListUpdateMulti(ByVal sMonitorIDs As List(Of String), ByVal oGame As clsGame, Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local)
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim sSQL As String
|
||||
Dim hshParams As New Hashtable
|
||||
Dim iCounter As Integer
|
||||
|
||||
sSQL = "UPDATE monitorlist SET Enabled=@Enabled, MonitorOnly=@MonitorOnly WHERE MonitorID IN ("
|
||||
|
||||
'Parameters
|
||||
hshParams.Add("Enabled", oGame.Enabled)
|
||||
hshParams.Add("MonitorOnly", oGame.MonitorOnly)
|
||||
|
||||
For Each s As String In sMonitorIDs
|
||||
sSQL &= "@MonitorID" & iCounter & ","
|
||||
hshParams.Add("MonitorID" & iCounter, s)
|
||||
iCounter += 1
|
||||
Next
|
||||
|
||||
sSQL = sSQL.TrimEnd(",")
|
||||
sSQL &= ")"
|
||||
|
||||
oDatabase.RunParamQuery(sSQL, hshParams)
|
||||
|
||||
End Sub
|
||||
|
||||
Public Shared Sub DoListDelete(ByVal sMonitorID As String, Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local)
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim sSQL As String
|
||||
Dim hshParams As New Hashtable
|
||||
|
||||
sSQL = "DELETE FROM gametags "
|
||||
sSQL &= "WHERE MonitorID = @MonitorID;"
|
||||
sSQL &= "DELETE FROM monitorlist "
|
||||
sSQL &= "WHERE MonitorID = @MonitorID;"
|
||||
|
||||
hshParams.Add("MonitorID", sMonitorID)
|
||||
|
||||
oDatabase.RunParamQuery(sSQL, hshParams)
|
||||
|
||||
End Sub
|
||||
|
||||
Public Shared Sub DoListDeleteMulti(ByVal sMonitorIDs As List(Of String), Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local)
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim sSQL As String
|
||||
Dim hshParams As New Hashtable
|
||||
Dim iCounter As Integer
|
||||
|
||||
sSQL = "DELETE FROM gametags "
|
||||
sSQL &= "WHERE MonitorID IN ("
|
||||
|
||||
For Each s As String In sMonitorIDs
|
||||
sSQL &= "@MonitorID" & iCounter & ","
|
||||
hshParams.Add("MonitorID" & iCounter, s)
|
||||
iCounter += 1
|
||||
Next
|
||||
|
||||
sSQL = sSQL.TrimEnd(",")
|
||||
sSQL &= ");"
|
||||
|
||||
sSQL &= "DELETE FROM monitorlist "
|
||||
sSQL &= "WHERE MonitorID IN ("
|
||||
|
||||
For Each s As String In sMonitorIDs
|
||||
sSQL &= "@MonitorID" & iCounter & ","
|
||||
hshParams.Add("MonitorID" & iCounter, s)
|
||||
iCounter += 1
|
||||
Next
|
||||
|
||||
sSQL = sSQL.TrimEnd(",")
|
||||
sSQL &= ");"
|
||||
|
||||
oDatabase.RunParamQuery(sSQL, hshParams)
|
||||
End Sub
|
||||
|
||||
Public Shared Function DoListGetbyID(ByVal iMonitorID As Integer, Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local) As clsGame
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim sSQL As String
|
||||
Dim oData As DataSet
|
||||
Dim oGame As New clsGame
|
||||
Dim hshParams As New Hashtable
|
||||
|
||||
sSQL = "SELECT * from monitorlist "
|
||||
sSQL &= "WHERE MonitorID = @MonitorID"
|
||||
|
||||
hshParams.Add("MonitorID", iMonitorID)
|
||||
|
||||
oData = oDatabase.ReadParamData(sSQL, hshParams)
|
||||
|
||||
For Each dr As DataRow In oData.Tables(0).Rows
|
||||
oGame = MapToObject(dr)
|
||||
Next
|
||||
|
||||
Return oGame
|
||||
End Function
|
||||
|
||||
Public Shared Function DoListGetbyName(ByVal sName As String, Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local) As Hashtable
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim sSQL As String
|
||||
Dim oData As DataSet
|
||||
Dim oGame As New clsGame
|
||||
Dim hshGames As New Hashtable
|
||||
Dim hshParams As New Hashtable
|
||||
Dim iCounter As Integer = 0
|
||||
|
||||
sSQL = "SELECT * from monitorlist "
|
||||
sSQL &= "WHERE Name = @Name"
|
||||
|
||||
hshParams.Add("Name", sName)
|
||||
|
||||
oData = oDatabase.ReadParamData(sSQL, hshParams)
|
||||
|
||||
For Each dr As DataRow In oData.Tables(0).Rows
|
||||
oGame = MapToObject(dr)
|
||||
hshGames.Add(iCounter, oGame)
|
||||
iCounter += 1
|
||||
Next
|
||||
|
||||
Return hshGames
|
||||
End Function
|
||||
|
||||
Public Shared Function DoDuplicateListCheck(ByVal sName As String, ByVal sProcess As String, Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local, Optional ByVal sExcludeID As String = "") As Boolean
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim sSQL As String
|
||||
Dim oData As DataSet
|
||||
Dim hshParams As New Hashtable
|
||||
|
||||
sSQL = "SELECT * FROM monitorlist WHERE Name = @Name AND Process= @Process"
|
||||
|
||||
hshParams.Add("Name", sName)
|
||||
hshParams.Add("Process", sProcess)
|
||||
|
||||
If sExcludeID <> String.Empty Then
|
||||
sSQL &= " AND MonitorID <> @MonitorID"
|
||||
hshParams.Add("MonitorID", sExcludeID)
|
||||
End If
|
||||
|
||||
oData = oDatabase.ReadParamData(sSQL, hshParams)
|
||||
|
||||
If oData.Tables(0).Rows.Count > 0 Then
|
||||
Return True
|
||||
Else
|
||||
mgrMonitorList.SyncMonitorLists(oSettings.SyncFields)
|
||||
Return False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Shared Sub ExportMonitorList(ByVal sLocation As String)
|
||||
Dim oList As List(Of Game)
|
||||
Dim bSuccess As Boolean = False
|
||||
Dim oTagFilters As New List(Of clsTag)
|
||||
Dim oStringFilters As New Hashtable
|
||||
Dim eCurrentFilter As frmFilter.eFilterType = frmFilter.eFilterType.NoFilter
|
||||
|
||||
If mgrCommon.ShowMessage(mgrMonitorList_ConfirmApplyFilter, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
|
||||
Dim frm As New frmFilter
|
||||
frm.ShowDialog()
|
||||
oTagFilters = frm.TagFilters
|
||||
oStringFilters = frm.StringFilters
|
||||
eCurrentFilter = frm.FilterType
|
||||
End If
|
||||
|
||||
oList = ReadListForExport(oTagFilters, oStringFilters, eCurrentFilter)
|
||||
|
||||
bSuccess = mgrXML.SerializeAndExport(oList, sLocation)
|
||||
|
||||
If bSuccess Then
|
||||
mgrCommon.ShowMessage(mgrMonitorList_ExportComplete, oList.Count, MsgBoxStyle.Information)
|
||||
End If
|
||||
End Sub
|
||||
End Function
|
||||
|
||||
'Sync Functions
|
||||
Public Shared Sub DoListAddUpdateSync(ByVal hshGames As Hashtable, Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local,
|
||||
Optional ByVal eSyncFields As clsGame.eOptionalSyncFields = clsGame.eOptionalSyncFields.None)
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
@@ -75,6 +279,7 @@ Public Class mgrMonitorList
|
||||
Dim sCompany As String
|
||||
Dim sMonitorGame As String
|
||||
Dim sTimeStamp As String
|
||||
Dim sBackupLimit As String
|
||||
|
||||
'Setup SQL for optional fields
|
||||
If (eSyncFields And clsGame.eOptionalSyncFields.Company) = clsGame.eOptionalSyncFields.Company Then
|
||||
@@ -99,8 +304,10 @@ Public Class mgrMonitorList
|
||||
End If
|
||||
If (eSyncFields And clsGame.eOptionalSyncFields.TimeStamp) = clsGame.eOptionalSyncFields.TimeStamp Then
|
||||
sTimeStamp = "@TimeStamp"
|
||||
sBackupLimit = "@BackupLimit"
|
||||
Else
|
||||
sTimeStamp = "COALESCE((SELECT TimeStamp FROM monitorlist WHERE MonitorID=@ID),0)"
|
||||
sBackupLimit = "COALESCE((SELECT BackupLimit FROM monitorlist WHERE MonitorID=@ID),2)"
|
||||
End If
|
||||
If (eSyncFields And clsGame.eOptionalSyncFields.Version) = clsGame.eOptionalSyncFields.Version Then
|
||||
sVersion = "@Version"
|
||||
@@ -108,11 +315,11 @@ Public Class mgrMonitorList
|
||||
sVersion = "(SELECT Version FROM monitorlist WHERE MonitorID=@ID)"
|
||||
End If
|
||||
|
||||
sSQL = "INSERT OR REPLACE INTO monitorlist (MonitorID, Name, Process, Path, AbsolutePath, FolderSave, FileType, TimeStamp, ExcludeList, ProcessPath, Icon, Hours, Version, Company, Enabled, MonitorOnly) "
|
||||
sSQL = "INSERT OR REPLACE INTO monitorlist (MonitorID, Name, Process, Path, AbsolutePath, FolderSave, FileType, TimeStamp, ExcludeList, ProcessPath, Icon, Hours, Version, Company, Enabled, MonitorOnly, BackupLimit) "
|
||||
sSQL &= "VALUES (@ID, @Name, @Process, @Path, @AbsolutePath, @FolderSave, @FileType, "
|
||||
sSQL &= sTimeStamp & ", @ExcludeList, " & sGamePath & ", "
|
||||
sSQL &= sIcon & ", @Hours, " & sVersion & ", "
|
||||
sSQL &= sCompany & ", " & sMonitorGame & ", @MonitorOnly);"
|
||||
sSQL &= sCompany & ", " & sMonitorGame & ", @MonitorOnly, " & sBackupLimit & ");"
|
||||
|
||||
For Each oGame As clsGame In hshGames.Values
|
||||
hshParams = New Hashtable
|
||||
@@ -144,6 +351,7 @@ Public Class mgrMonitorList
|
||||
End If
|
||||
If (eSyncFields And clsGame.eOptionalSyncFields.TimeStamp) = clsGame.eOptionalSyncFields.TimeStamp Then
|
||||
hshParams.Add("TimeStamp", oGame.AppendTimeStamp)
|
||||
hshParams.Add("BackupLimit", oGame.BackupLimit)
|
||||
End If
|
||||
If (eSyncFields And clsGame.eOptionalSyncFields.Version) = clsGame.eOptionalSyncFields.Version Then
|
||||
hshParams.Add("Version", oGame.Version)
|
||||
@@ -256,6 +464,145 @@ Public Class mgrMonitorList
|
||||
Application.DoEvents()
|
||||
End Sub
|
||||
|
||||
'Filter Functions
|
||||
Private Shared Function BuildFilterQuery(ByVal oTagFilters As List(Of clsTag), ByVal hshStringFilters As Hashtable, eFilterType As frmFilter.eFilterType, ByRef hshParams As Hashtable) As String
|
||||
Dim sSQL As String = String.Empty
|
||||
Dim iCounter As Integer = 0
|
||||
|
||||
Select Case eFilterType
|
||||
Case frmFilter.eFilterType.NoFilter
|
||||
sSQL = "SELECT MonitorID, Name, Process, Path, AbsolutePath, FolderSave, FileType, TimeStamp, ExcludeList, ProcessPath, Icon, Hours, Version, Company, Enabled, MonitorOnly, BackupLimit FROM monitorlist ORDER BY Name Asc"
|
||||
Case frmFilter.eFilterType.FieldAnd, frmFilter.eFilterType.FieldOr
|
||||
sSQL = "SELECT MonitorID, Name, Process, Path, AbsolutePath, FolderSave, FileType, TimeStamp, ExcludeList, ProcessPath, Icon, Hours, Version, Company, Enabled, MonitorOnly, BackupLimit FROM monitorlist"
|
||||
|
||||
If hshStringFilters.Count > 0 Then
|
||||
sSQL &= " WHERE ("
|
||||
For Each de As DictionaryEntry In hshStringFilters
|
||||
sSQL &= de.Key & " LIKE @" & de.Key
|
||||
hshParams.Add(de.Key, "%" & de.Value.ToString & "%")
|
||||
iCounter += 1
|
||||
If iCounter <> hshStringFilters.Count Then
|
||||
Select Case eFilterType
|
||||
Case frmFilter.eFilterType.FieldAnd
|
||||
sSQL &= " AND "
|
||||
Case frmFilter.eFilterType.FieldOr
|
||||
sSQL &= " OR "
|
||||
End Select
|
||||
End If
|
||||
|
||||
Next
|
||||
sSQL &= ")"
|
||||
End If
|
||||
sSQL &= " ORDER BY Name Asc"
|
||||
Case frmFilter.eFilterType.AnyTag
|
||||
sSQL = "SELECT DISTINCT MonitorID, Name, Process, Path, AbsolutePath, FolderSave, FileType, TimeStamp, ExcludeList, ProcessPath, Icon, Hours, Version, Company, Enabled, MonitorOnly, BackupLimit FROM monitorlist "
|
||||
sSQL &= "NATURAL JOIN gametags WHERE gametags.TagID IN ("
|
||||
|
||||
For Each oTag As clsTag In oTagFilters
|
||||
sSQL &= "@TagID" & iCounter & ","
|
||||
hshParams.Add("TagID" & iCounter, oTag.ID)
|
||||
iCounter += 1
|
||||
Next
|
||||
|
||||
sSQL = sSQL.TrimEnd(",")
|
||||
sSQL &= ") ORDER BY Name Asc"
|
||||
Case frmFilter.eFilterType.AllTags
|
||||
sSQL = "SELECT MonitorID, Name, Process, Path, AbsolutePath, FolderSave, FileType, TimeStamp, ExcludeList, ProcessPath, Icon, Hours, Version, Company, Enabled, MonitorOnly, BackupLimit FROM monitorlist WHERE MonitorID IN "
|
||||
|
||||
For Each oTag As clsTag In oTagFilters
|
||||
sSQL &= "(SELECT MonitorID FROM gametags WHERE monitorlist.MonitorID = gametags.MonitorID And TagID = @TagID" & iCounter & ")"
|
||||
If iCounter <> oTagFilters.Count - 1 Then
|
||||
sSQL &= " AND MonitorID IN "
|
||||
End If
|
||||
hshParams.Add("TagID" & iCounter, oTag.ID)
|
||||
iCounter += 1
|
||||
Next
|
||||
|
||||
sSQL &= " ORDER BY Name Asc"
|
||||
Case frmFilter.eFilterType.NoTags
|
||||
sSQL = "SELECT MonitorID, Name, Process, Path, AbsolutePath, FolderSave, FileType, TimeStamp, ExcludeList, ProcessPath, Icon, Hours, Version, Company, Enabled, MonitorOnly, BackupLimit FROM monitorlist WHERE MonitorID NOT IN (SELECT MonitorID FROM gametags) ORDER BY Name Asc"
|
||||
End Select
|
||||
|
||||
Return sSQL
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function ReadFilteredList(ByVal oTagFilters As List(Of clsTag), ByVal hshStringFilters As Hashtable, eFilterType As frmFilter.eFilterType, Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local) As Hashtable
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim oData As DataSet
|
||||
Dim sSQL As String = String.Empty
|
||||
Dim hshList As New Hashtable
|
||||
Dim oGame As clsGame
|
||||
Dim hshParams As New Hashtable
|
||||
Dim iCounter As Integer = 0
|
||||
|
||||
sSQL = BuildFilterQuery(oTagFilters, hshStringFilters, eFilterType, hshParams)
|
||||
|
||||
oData = oDatabase.ReadParamData(sSQL, hshParams)
|
||||
|
||||
For Each dr As DataRow In oData.Tables(0).Rows
|
||||
oGame = MapToObject(dr)
|
||||
|
||||
hshList.Add(oGame.ID, oGame)
|
||||
Next
|
||||
|
||||
Return hshList
|
||||
End Function
|
||||
|
||||
|
||||
'Import / Export Functions
|
||||
Public Shared Function ReadListForExport(ByVal oTagFilters As List(Of clsTag), ByVal hshStringFilters As Hashtable, ByVal eFilterType As frmFilter.eFilterType, Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local) As List(Of Game)
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim oData As DataSet
|
||||
Dim sSQL As String = String.Empty
|
||||
Dim sID As String
|
||||
Dim oList As New List(Of Game)
|
||||
Dim oGame As Game
|
||||
Dim hshParams As New Hashtable
|
||||
|
||||
sSQL = BuildFilterQuery(oTagFilters, hshStringFilters, eFilterType, hshParams)
|
||||
|
||||
oData = oDatabase.ReadParamData(sSQL, hshParams)
|
||||
|
||||
For Each dr As DataRow In oData.Tables(0).Rows
|
||||
oGame = New Game
|
||||
sID = CStr(dr("MonitorID"))
|
||||
oGame.Name = CStr(dr("Name"))
|
||||
oGame.ProcessName = CStr(dr("Process"))
|
||||
If Not IsDBNull(dr("Path")) Then oGame.Path = CStr(dr("Path"))
|
||||
oGame.AbsolutePath = CBool(dr("AbsolutePath"))
|
||||
oGame.FolderSave = CBool(dr("FolderSave"))
|
||||
If Not IsDBNull(dr("FileType")) Then oGame.FileType = CStr(dr("FileType"))
|
||||
If Not IsDBNull(dr("ExcludeList")) Then oGame.ExcludeList = CStr(dr("ExcludeList"))
|
||||
oGame.Tags = mgrGameTags.GetTagsByGameForExport(sID)
|
||||
oList.Add(oGame)
|
||||
Next
|
||||
|
||||
Return oList
|
||||
End Function
|
||||
|
||||
Public Shared Function DoImport(ByVal sPath As String) As Boolean
|
||||
If (sPath.IndexOf("http://", 0, StringComparison.CurrentCultureIgnoreCase) > -1) Or
|
||||
(sPath.IndexOf("https://", 0, StringComparison.CurrentCultureIgnoreCase) > -1) Then
|
||||
If mgrCommon.CheckAddress(sPath) Then
|
||||
ImportMonitorList(sPath, True)
|
||||
Return True
|
||||
Else
|
||||
mgrCommon.ShowMessage(mgrMonitorList_WebNoReponse, sPath, MsgBoxStyle.Exclamation)
|
||||
Return False
|
||||
End If
|
||||
Else
|
||||
If File.Exists(sPath) Then
|
||||
ImportMonitorList(sPath)
|
||||
Return True
|
||||
Else
|
||||
mgrCommon.ShowMessage(mgrMonitorList_FileNotFound, sPath, MsgBoxStyle.Exclamation)
|
||||
Return False
|
||||
End If
|
||||
End If
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Private Shared Sub ImportMonitorList(ByVal sLocation As String, Optional ByVal bWebRead As Boolean = False)
|
||||
Dim hshCompareFrom As Hashtable
|
||||
Dim hshCompareTo As Hashtable
|
||||
@@ -301,441 +648,55 @@ Public Class mgrMonitorList
|
||||
Application.DoEvents()
|
||||
End Sub
|
||||
|
||||
Public Shared Function DoImport(ByVal sPath As String) As Boolean
|
||||
If (sPath.IndexOf("http://", 0, StringComparison.CurrentCultureIgnoreCase) > -1) Or _
|
||||
(sPath.IndexOf("https://", 0, StringComparison.CurrentCultureIgnoreCase) > -1) Then
|
||||
If mgrCommon.CheckAddress(sPath) Then
|
||||
ImportMonitorList(sPath, True)
|
||||
Return True
|
||||
Else
|
||||
mgrCommon.ShowMessage(mgrMonitorList_WebNoReponse, sPath, MsgBoxStyle.Exclamation)
|
||||
Return False
|
||||
End If
|
||||
Else
|
||||
If File.Exists(sPath) Then
|
||||
ImportMonitorList(sPath)
|
||||
Return True
|
||||
Else
|
||||
mgrCommon.ShowMessage(mgrMonitorList_FileNotFound, sPath, MsgBoxStyle.Exclamation)
|
||||
Return False
|
||||
End If
|
||||
Public Shared Sub ExportMonitorList(ByVal sLocation As String)
|
||||
Dim oList As List(Of Game)
|
||||
Dim bSuccess As Boolean = False
|
||||
Dim oTagFilters As New List(Of clsTag)
|
||||
Dim oStringFilters As New Hashtable
|
||||
Dim eCurrentFilter As frmFilter.eFilterType = frmFilter.eFilterType.NoFilter
|
||||
|
||||
If mgrCommon.ShowMessage(mgrMonitorList_ConfirmApplyFilter, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
|
||||
Dim frm As New frmFilter
|
||||
frm.ShowDialog()
|
||||
oTagFilters = frm.TagFilters
|
||||
oStringFilters = frm.StringFilters
|
||||
eCurrentFilter = frm.FilterType
|
||||
End If
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Private Shared Function BuildFilterQuery(ByVal oTagFilters As List(Of clsTag), ByVal hshStringFilters As Hashtable, eFilterType As frmFilter.eFilterType, ByRef hshParams As Hashtable) As String
|
||||
Dim sSQL As String = String.Empty
|
||||
Dim iCounter As Integer = 0
|
||||
oList = ReadListForExport(oTagFilters, oStringFilters, eCurrentFilter)
|
||||
|
||||
Select Case eFilterType
|
||||
Case frmFilter.eFilterType.NoFilter
|
||||
sSQL = "SELECT MonitorID, Name, Process, Path, AbsolutePath, FolderSave, FileType, TimeStamp, ExcludeList, ProcessPath, Icon, Hours, Version, Company, Enabled, MonitorOnly FROM monitorlist ORDER BY Name Asc"
|
||||
Case frmFilter.eFilterType.FieldAnd, frmFilter.eFilterType.FieldOr
|
||||
sSQL = "SELECT MonitorID, Name, Process, Path, AbsolutePath, FolderSave, FileType, TimeStamp, ExcludeList, ProcessPath, Icon, Hours, Version, Company, Enabled, MonitorOnly FROM monitorlist"
|
||||
bSuccess = mgrXML.SerializeAndExport(oList, sLocation)
|
||||
|
||||
If hshStringFilters.Count > 0 Then
|
||||
sSQL &= " WHERE ("
|
||||
For Each de As DictionaryEntry In hshStringFilters
|
||||
sSQL &= de.Key & " LIKE @" & de.Key
|
||||
hshParams.Add(de.Key, "%" & de.Value.ToString & "%")
|
||||
iCounter += 1
|
||||
If iCounter <> hshStringFilters.Count Then
|
||||
Select Case eFilterType
|
||||
Case frmFilter.eFilterType.FieldAnd
|
||||
sSQL &= " AND "
|
||||
Case frmFilter.eFilterType.FieldOr
|
||||
sSQL &= " OR "
|
||||
End Select
|
||||
End If
|
||||
If bSuccess Then
|
||||
mgrCommon.ShowMessage(mgrMonitorList_ExportComplete, oList.Count, MsgBoxStyle.Information)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Next
|
||||
sSQL &= ")"
|
||||
'Other Functions
|
||||
Public Shared Sub HandleBackupLocationChange(ByVal oSettings As mgrSettings)
|
||||
Dim oDatabase As New mgrSQLite(mgrSQLite.Database.Remote)
|
||||
Dim iGameCount As Integer
|
||||
|
||||
'Check if a remote database already exists in the new backup location
|
||||
If oDatabase.CheckDB() Then
|
||||
'Make sure database is the latest version
|
||||
oDatabase.DatabaseUpgrade()
|
||||
|
||||
'See if the remote database is empty
|
||||
iGameCount = mgrMonitorList.ReadList(eListTypes.FullList, mgrSQLite.Database.Remote).Count
|
||||
|
||||
'If the remote database actually contains a list, then ask what to do
|
||||
If iGameCount > 0 Then
|
||||
If mgrCommon.ShowMessage(mgrMonitorList_ConfirmExistingData, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
|
||||
mgrMonitorList.SyncMonitorLists(oSettings.SyncFields)
|
||||
Else
|
||||
mgrMonitorList.SyncMonitorLists(oSettings.SyncFields, False)
|
||||
End If
|
||||
sSQL &= " ORDER BY Name Asc"
|
||||
Case frmFilter.eFilterType.AnyTag
|
||||
sSQL = "SELECT DISTINCT MonitorID, Name, Process, Path, AbsolutePath, FolderSave, FileType, TimeStamp, ExcludeList, ProcessPath, Icon, Hours, Version, Company, Enabled, MonitorOnly FROM monitorlist "
|
||||
sSQL &= "NATURAL JOIN gametags WHERE gametags.TagID IN ("
|
||||
|
||||
For Each oTag As clsTag In oTagFilters
|
||||
sSQL &= "@TagID" & iCounter & ","
|
||||
hshParams.Add("TagID" & iCounter, oTag.ID)
|
||||
iCounter += 1
|
||||
Next
|
||||
|
||||
sSQL = sSQL.TrimEnd(",")
|
||||
sSQL &= ") ORDER BY Name Asc"
|
||||
Case frmFilter.eFilterType.AllTags
|
||||
sSQL = "SELECT MonitorID, Name, Process, Path, AbsolutePath, FolderSave, FileType, TimeStamp, ExcludeList, ProcessPath, Icon, Hours, Version, Company, Enabled, MonitorOnly FROM monitorlist WHERE MonitorID IN "
|
||||
|
||||
For Each oTag As clsTag In oTagFilters
|
||||
sSQL &= "(SELECT MonitorID FROM gametags WHERE monitorlist.MonitorID = gametags.MonitorID And TagID = @TagID" & iCounter & ")"
|
||||
If iCounter <> oTagFilters.Count - 1 Then
|
||||
sSQL &= " AND MonitorID IN "
|
||||
End If
|
||||
hshParams.Add("TagID" & iCounter, oTag.ID)
|
||||
iCounter += 1
|
||||
Next
|
||||
|
||||
sSQL &= " ORDER BY Name Asc"
|
||||
Case frmFilter.eFilterType.NoTags
|
||||
sSQL = "SELECT MonitorID, Name, Process, Path, AbsolutePath, FolderSave, FileType, TimeStamp, ExcludeList, ProcessPath, Icon, Hours, Version, Company, Enabled, MonitorOnly FROM monitorlist WHERE MonitorID NOT IN (SELECT MonitorID FROM gametags) ORDER BY Name Asc"
|
||||
End Select
|
||||
|
||||
Return sSQL
|
||||
|
||||
End Function
|
||||
|
||||
Public Shared Function ReadFilteredList(ByVal oTagFilters As List(Of clsTag), ByVal hshStringFilters As Hashtable, eFilterType As frmFilter.eFilterType, Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local) As Hashtable
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim oData As DataSet
|
||||
Dim sSQL As String = String.Empty
|
||||
Dim hshList As New Hashtable
|
||||
Dim oGame As clsGame
|
||||
Dim hshParams As New Hashtable
|
||||
Dim iCounter As Integer = 0
|
||||
|
||||
sSQL = BuildFilterQuery(oTagFilters, hshStringFilters, eFilterType, hshParams)
|
||||
|
||||
oData = oDatabase.ReadParamData(sSQL, hshParams)
|
||||
|
||||
For Each dr As DataRow In oData.Tables(0).Rows
|
||||
oGame = New clsGame
|
||||
oGame.ID = CStr(dr("MonitorID"))
|
||||
oGame.Name = CStr(dr("Name"))
|
||||
oGame.ProcessName = CStr(dr("Process"))
|
||||
If Not IsDBNull(dr("Path")) Then oGame.Path = CStr(dr("Path"))
|
||||
oGame.AbsolutePath = CBool(dr("AbsolutePath"))
|
||||
oGame.FolderSave = CBool(dr("FolderSave"))
|
||||
If Not IsDBNull(dr("FileType")) Then oGame.FileType = CStr(dr("FileType"))
|
||||
oGame.AppendTimeStamp = CBool(dr("TimeStamp"))
|
||||
If Not IsDBNull(dr("ExcludeList")) Then oGame.ExcludeList = CStr(dr("ExcludeList"))
|
||||
If Not IsDBNull(dr("ProcessPath")) Then oGame.ProcessPath = CStr(dr("ProcessPath"))
|
||||
If Not IsDBNull(dr("Icon")) Then oGame.Icon = CStr(dr("Icon"))
|
||||
oGame.Hours = CDbl(dr("Hours"))
|
||||
If Not IsDBNull(dr("Version")) Then oGame.Version = CStr(dr("Version"))
|
||||
If Not IsDBNull(dr("Company")) Then oGame.Company = CStr(dr("Company"))
|
||||
oGame.Enabled = CBool(dr("Enabled"))
|
||||
oGame.MonitorOnly = CBool(dr("MonitorOnly"))
|
||||
|
||||
hshList.Add(oGame.ID, oGame)
|
||||
Next
|
||||
|
||||
Return hshList
|
||||
End Function
|
||||
|
||||
Public Shared Function ReadListForExport(ByVal oTagFilters As List(Of clsTag), ByVal hshStringFilters As Hashtable, ByVal eFilterType As frmFilter.eFilterType, Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local) As List(Of Game)
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim oData As DataSet
|
||||
Dim sSQL As String = String.Empty
|
||||
Dim sID As String
|
||||
Dim oList As New List(Of Game)
|
||||
Dim oGame As Game
|
||||
Dim hshParams As New Hashtable
|
||||
|
||||
sSQL = BuildFilterQuery(oTagFilters, hshStringFilters, eFilterType, hshParams)
|
||||
|
||||
oData = oDatabase.ReadParamData(sSQL, hshParams)
|
||||
|
||||
For Each dr As DataRow In oData.Tables(0).Rows
|
||||
oGame = New Game
|
||||
sID = CStr(dr("MonitorID"))
|
||||
oGame.Name = CStr(dr("Name"))
|
||||
oGame.ProcessName = CStr(dr("Process"))
|
||||
If Not IsDBNull(dr("Path")) Then oGame.Path = CStr(dr("Path"))
|
||||
oGame.AbsolutePath = CBool(dr("AbsolutePath"))
|
||||
oGame.FolderSave = CBool(dr("FolderSave"))
|
||||
If Not IsDBNull(dr("FileType")) Then oGame.FileType = CStr(dr("FileType"))
|
||||
If Not IsDBNull(dr("ExcludeList")) Then oGame.ExcludeList = CStr(dr("ExcludeList"))
|
||||
oGame.Tags = mgrGameTags.GetTagsByGameForExport(sID)
|
||||
oList.Add(oGame)
|
||||
Next
|
||||
|
||||
Return oList
|
||||
End Function
|
||||
|
||||
Public Shared Function ReadList(ByVal eListType As eListTypes, Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local) As Hashtable
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim oData As DataSet
|
||||
Dim sSQL As String
|
||||
Dim hshList As New Hashtable
|
||||
Dim hshDupeList As New Hashtable
|
||||
Dim oGame As clsGame
|
||||
|
||||
sSQL = "Select * from monitorlist ORDER BY Name Asc"
|
||||
oData = oDatabase.ReadParamData(sSQL, New Hashtable)
|
||||
|
||||
For Each dr As DataRow In oData.Tables(0).Rows
|
||||
oGame = New clsGame
|
||||
oGame.ID = CStr(dr("MonitorID"))
|
||||
oGame.Name = CStr(dr("Name"))
|
||||
oGame.ProcessName = CStr(dr("Process"))
|
||||
If Not IsDBNull(dr("Path")) Then oGame.Path = CStr(dr("Path"))
|
||||
oGame.AbsolutePath = CBool(dr("AbsolutePath"))
|
||||
oGame.FolderSave = CBool(dr("FolderSave"))
|
||||
If Not IsDBNull(dr("FileType")) Then oGame.FileType = CStr(dr("FileType"))
|
||||
oGame.AppendTimeStamp = CBool(dr("TimeStamp"))
|
||||
If Not IsDBNull(dr("ExcludeList")) Then oGame.ExcludeList = CStr(dr("ExcludeList"))
|
||||
If Not IsDBNull(dr("ProcessPath")) Then oGame.ProcessPath = CStr(dr("ProcessPath"))
|
||||
If Not IsDBNull(dr("Icon")) Then oGame.Icon = CStr(dr("Icon"))
|
||||
oGame.Hours = CDbl(dr("Hours"))
|
||||
If Not IsDBNull(dr("Version")) Then oGame.Version = CStr(dr("Version"))
|
||||
If Not IsDBNull(dr("Company")) Then oGame.Company = CStr(dr("Company"))
|
||||
oGame.Enabled = CBool(dr("Enabled"))
|
||||
oGame.MonitorOnly = CBool(dr("MonitorOnly"))
|
||||
|
||||
Select Case eListType
|
||||
Case eListTypes.FullList
|
||||
'Don't wrap this, if it fails there's a problem with the database
|
||||
hshList.Add(oGame.ProcessName & ":" & oGame.Name, oGame)
|
||||
Case eListTypes.ScanList
|
||||
If hshList.Contains(oGame.ProcessName) Then
|
||||
DirectCast(hshList.Item(oGame.ProcessName), clsGame).Duplicate = True
|
||||
oGame.ProcessName = oGame.ProcessName & ":" & oGame.Name
|
||||
oGame.Duplicate = True
|
||||
End If
|
||||
If oGame.Enabled Then hshList.Add(oGame.ProcessName, oGame)
|
||||
End Select
|
||||
Next
|
||||
|
||||
Return hshList
|
||||
End Function
|
||||
|
||||
Public Shared Sub DoListAdd(ByVal oGame As clsGame, Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local)
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim sSQL As String
|
||||
Dim hshParams As New Hashtable
|
||||
|
||||
sSQL = "INSERT INTO monitorlist VALUES (@ID, @Name, @Process, @Path, @AbsolutePath, @FolderSave, @FileType, @TimeStamp, "
|
||||
sSQL &= "@ExcludeList, @ProcessPath, @Icon, @Hours, @Version, @Company, @Enabled, @MonitorOnly)"
|
||||
|
||||
'Parameters
|
||||
hshParams.Add("ID", oGame.ID)
|
||||
hshParams.Add("Name", oGame.Name)
|
||||
hshParams.Add("Process", oGame.TrueProcess)
|
||||
hshParams.Add("Path", oGame.TruePath)
|
||||
hshParams.Add("AbsolutePath", oGame.AbsolutePath)
|
||||
hshParams.Add("FolderSave", oGame.FolderSave)
|
||||
hshParams.Add("FileType", oGame.FileType)
|
||||
hshParams.Add("TimeStamp", oGame.AppendTimeStamp)
|
||||
hshParams.Add("ExcludeList", oGame.ExcludeList)
|
||||
hshParams.Add("ProcessPath", oGame.ProcessPath)
|
||||
hshParams.Add("Icon", oGame.Icon)
|
||||
hshParams.Add("Hours", oGame.Hours)
|
||||
hshParams.Add("Version", oGame.Version)
|
||||
hshParams.Add("Company", oGame.Company)
|
||||
hshParams.Add("Enabled", oGame.Enabled)
|
||||
hshParams.Add("MonitorOnly", oGame.MonitorOnly)
|
||||
|
||||
oDatabase.RunParamQuery(sSQL, hshParams)
|
||||
|
||||
End Sub
|
||||
|
||||
Public Shared Sub DoListUpdate(ByVal oGame As clsGame, Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local)
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim sSQL As String
|
||||
Dim hshParams As New Hashtable
|
||||
|
||||
sSQL = "UPDATE monitorlist SET Name=@Name, Process=@Process, Path=@Path, AbsolutePath=@AbsolutePath, FolderSave=@FolderSave, "
|
||||
sSQL &= "FileType=@FileType, TimeStamp=@TimeStamp, ExcludeList=@ExcludeList, ProcessPath=@ProcessPath, Icon=@Icon, "
|
||||
sSQL &= "Hours=@Hours, Version=@Version, Company=@Company, Enabled=@Enabled, MonitorOnly=@MonitorOnly WHERE MonitorID=@ID"
|
||||
|
||||
'Parameters
|
||||
hshParams.Add("Name", oGame.Name)
|
||||
hshParams.Add("Process", oGame.TrueProcess)
|
||||
hshParams.Add("Path", oGame.TruePath)
|
||||
hshParams.Add("AbsolutePath", oGame.AbsolutePath)
|
||||
hshParams.Add("FolderSave", oGame.FolderSave)
|
||||
hshParams.Add("FileType", oGame.FileType)
|
||||
hshParams.Add("TimeStamp", oGame.AppendTimeStamp)
|
||||
hshParams.Add("ExcludeList", oGame.ExcludeList)
|
||||
hshParams.Add("ProcessPath", oGame.ProcessPath)
|
||||
hshParams.Add("Icon", oGame.Icon)
|
||||
hshParams.Add("Hours", oGame.Hours)
|
||||
hshParams.Add("Version", oGame.Version)
|
||||
hshParams.Add("Company", oGame.Company)
|
||||
hshParams.Add("Enabled", oGame.Enabled)
|
||||
hshParams.Add("MonitorOnly", oGame.MonitorOnly)
|
||||
hshParams.Add("ID", oGame.ID)
|
||||
|
||||
oDatabase.RunParamQuery(sSQL, hshParams)
|
||||
|
||||
End Sub
|
||||
|
||||
Public Shared Sub DoListUpdateMulti(ByVal sMonitorIDs As List(Of String), ByVal oGame As clsGame, Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local)
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim sSQL As String
|
||||
Dim hshParams As New Hashtable
|
||||
Dim iCounter As Integer
|
||||
|
||||
sSQL = "UPDATE monitorlist SET Enabled=@Enabled, MonitorOnly=@MonitorOnly WHERE MonitorID IN ("
|
||||
|
||||
'Parameters
|
||||
hshParams.Add("Enabled", oGame.Enabled)
|
||||
hshParams.Add("MonitorOnly", oGame.MonitorOnly)
|
||||
|
||||
For Each s As String In sMonitorIDs
|
||||
sSQL &= "@MonitorID" & iCounter & ","
|
||||
hshParams.Add("MonitorID" & iCounter, s)
|
||||
iCounter += 1
|
||||
Next
|
||||
|
||||
sSQL = sSQL.TrimEnd(",")
|
||||
sSQL &= ")"
|
||||
|
||||
oDatabase.RunParamQuery(sSQL, hshParams)
|
||||
|
||||
End Sub
|
||||
|
||||
Public Shared Sub DoListDelete(ByVal sMonitorID As String, Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local)
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim sSQL As String
|
||||
Dim hshParams As New Hashtable
|
||||
|
||||
sSQL = "DELETE FROM gametags "
|
||||
sSQL &= "WHERE MonitorID = @MonitorID;"
|
||||
sSQL &= "DELETE FROM monitorlist "
|
||||
sSQL &= "WHERE MonitorID = @MonitorID;"
|
||||
|
||||
hshParams.Add("MonitorID", sMonitorID)
|
||||
|
||||
oDatabase.RunParamQuery(sSQL, hshParams)
|
||||
|
||||
End Sub
|
||||
|
||||
Public Shared Sub DoListDeleteMulti(ByVal sMonitorIDs As List(Of String), Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local)
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim sSQL As String
|
||||
Dim hshParams As New Hashtable
|
||||
Dim iCounter As Integer
|
||||
|
||||
sSQL = "DELETE FROM gametags "
|
||||
sSQL &= "WHERE MonitorID IN ("
|
||||
|
||||
For Each s As String In sMonitorIDs
|
||||
sSQL &= "@MonitorID" & iCounter & ","
|
||||
hshParams.Add("MonitorID" & iCounter, s)
|
||||
iCounter += 1
|
||||
Next
|
||||
|
||||
sSQL = sSQL.TrimEnd(",")
|
||||
sSQL &= ");"
|
||||
|
||||
sSQL &= "DELETE FROM monitorlist "
|
||||
sSQL &= "WHERE MonitorID IN ("
|
||||
|
||||
For Each s As String In sMonitorIDs
|
||||
sSQL &= "@MonitorID" & iCounter & ","
|
||||
hshParams.Add("MonitorID" & iCounter, s)
|
||||
iCounter += 1
|
||||
Next
|
||||
|
||||
sSQL = sSQL.TrimEnd(",")
|
||||
sSQL &= ");"
|
||||
|
||||
oDatabase.RunParamQuery(sSQL, hshParams)
|
||||
End Sub
|
||||
|
||||
Public Shared Function DoListGetbyID(ByVal iMonitorID As Integer, Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local) As clsGame
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim sSQL As String
|
||||
Dim oData As DataSet
|
||||
Dim oGame As New clsGame
|
||||
Dim hshParams As New Hashtable
|
||||
|
||||
sSQL = "SELECT * from monitorlist "
|
||||
sSQL &= "WHERE MonitorID = @MonitorID"
|
||||
|
||||
hshParams.Add("MonitorID", iMonitorID)
|
||||
|
||||
oData = oDatabase.ReadParamData(sSQL, hshParams)
|
||||
|
||||
For Each dr As DataRow In oData.Tables(0).Rows
|
||||
oGame = New clsGame
|
||||
oGame.ID = CStr(dr("MonitorID"))
|
||||
oGame.Name = CStr(dr("Name"))
|
||||
oGame.ProcessName = CStr(dr("Process"))
|
||||
If Not IsDBNull(dr("Path")) Then oGame.Path = CStr(dr("Path"))
|
||||
oGame.AbsolutePath = CBool(dr("AbsolutePath"))
|
||||
oGame.FolderSave = CBool(dr("FolderSave"))
|
||||
If Not IsDBNull(dr("FileType")) Then oGame.FileType = CStr(dr("FileType"))
|
||||
oGame.AppendTimeStamp = CBool(dr("TimeStamp"))
|
||||
If Not IsDBNull(dr("ExcludeList")) Then oGame.ExcludeList = CStr(dr("ExcludeList"))
|
||||
If Not IsDBNull(dr("ProcessPath")) Then oGame.ProcessPath = CStr(dr("ProcessPath"))
|
||||
If Not IsDBNull(dr("Icon")) Then oGame.Icon = CStr(dr("Icon"))
|
||||
oGame.Hours = CDbl(dr("Hours"))
|
||||
If Not IsDBNull(dr("Version")) Then oGame.Version = CStr(dr("Version"))
|
||||
If Not IsDBNull(dr("Company")) Then oGame.Company = CStr(dr("Company"))
|
||||
oGame.Enabled = CBool(dr("Enabled"))
|
||||
oGame.MonitorOnly = CBool(dr("MonitorOnly"))
|
||||
Next
|
||||
|
||||
Return oGame
|
||||
End Function
|
||||
|
||||
Public Shared Function DoListGetbyName(ByVal sName As String, Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local) As Hashtable
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim sSQL As String
|
||||
Dim oData As DataSet
|
||||
Dim oGame As New clsGame
|
||||
Dim hshGames As New Hashtable
|
||||
Dim hshParams As New Hashtable
|
||||
Dim iCounter As Integer = 0
|
||||
|
||||
sSQL = "SELECT * from monitorlist "
|
||||
sSQL &= "WHERE Name = @Name"
|
||||
|
||||
hshParams.Add("Name", sName)
|
||||
|
||||
oData = oDatabase.ReadParamData(sSQL, hshParams)
|
||||
|
||||
For Each dr As DataRow In oData.Tables(0).Rows
|
||||
oGame = New clsGame
|
||||
oGame.ID = CStr(dr("MonitorID"))
|
||||
oGame.Name = CStr(dr("Name"))
|
||||
oGame.ProcessName = CStr(dr("Process"))
|
||||
If Not IsDBNull(dr("Path")) Then oGame.Path = CStr(dr("Path"))
|
||||
oGame.AbsolutePath = CBool(dr("AbsolutePath"))
|
||||
oGame.FolderSave = CBool(dr("FolderSave"))
|
||||
If Not IsDBNull(dr("FileType")) Then oGame.FileType = CStr(dr("FileType"))
|
||||
oGame.AppendTimeStamp = CBool(dr("TimeStamp"))
|
||||
If Not IsDBNull(dr("ExcludeList")) Then oGame.ExcludeList = CStr(dr("ExcludeList"))
|
||||
If Not IsDBNull(dr("ProcessPath")) Then oGame.ProcessPath = CStr(dr("ProcessPath"))
|
||||
If Not IsDBNull(dr("Icon")) Then oGame.Icon = CStr(dr("Icon"))
|
||||
oGame.Hours = CDbl(dr("Hours"))
|
||||
If Not IsDBNull(dr("Version")) Then oGame.Version = CStr(dr("Version"))
|
||||
If Not IsDBNull(dr("Company")) Then oGame.Company = CStr(dr("Company"))
|
||||
oGame.Enabled = CBool(dr("Enabled"))
|
||||
oGame.MonitorOnly = CBool(dr("MonitorOnly"))
|
||||
hshGames.Add(iCounter, oGame)
|
||||
iCounter += 1
|
||||
Next
|
||||
|
||||
Return hshGames
|
||||
End Function
|
||||
|
||||
Public Shared Function DoDuplicateListCheck(ByVal sName As String, ByVal sProcess As String, Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local, Optional ByVal sExcludeID As String = "") As Boolean
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim sSQL As String
|
||||
Dim oData As DataSet
|
||||
Dim hshParams As New Hashtable
|
||||
|
||||
sSQL = "SELECT * FROM monitorlist WHERE Name = @Name AND Process= @Process"
|
||||
|
||||
hshParams.Add("Name", sName)
|
||||
hshParams.Add("Process", sProcess)
|
||||
|
||||
If sExcludeID <> String.Empty Then
|
||||
sSQL &= " AND MonitorID <> @MonitorID"
|
||||
hshParams.Add("MonitorID", sExcludeID)
|
||||
End If
|
||||
|
||||
oData = oDatabase.ReadParamData(sSQL, hshParams)
|
||||
|
||||
If oData.Tables(0).Rows.Count > 0 Then
|
||||
Return True
|
||||
Else
|
||||
mgrMonitorList.SyncMonitorLists(oSettings.SyncFields)
|
||||
End If
|
||||
Else
|
||||
Return False
|
||||
mgrMonitorList.SyncMonitorLists(oSettings.SyncFields)
|
||||
End If
|
||||
End Function
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -283,10 +283,10 @@ Public Class mgrPath
|
||||
|
||||
hshFolders.Add(Guid.NewGuid.ToString, Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData))
|
||||
hshFolders.Add(Guid.NewGuid.ToString, Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData))
|
||||
hshFolders.Add(Guid.NewGuid.ToString, Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))
|
||||
|
||||
'Don't use these in Unix
|
||||
If Not mgrCommon.IsUnix Then
|
||||
hshFolders.Add(Guid.NewGuid.ToString, Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))
|
||||
hshFolders.Add(Guid.NewGuid.ToString, Environment.GetFolderPath(Environment.SpecialFolder.CommonDocuments))
|
||||
hshFolders.Add(Guid.NewGuid.ToString, Environment.GetFolderPath(Environment.SpecialFolder.UserProfile))
|
||||
End If
|
||||
|
||||
@@ -130,9 +130,9 @@ Public Class mgrProcesses
|
||||
|
||||
'Unix Handler
|
||||
'We need some special handling for Wine processes
|
||||
If mgrCommon.IsUnix And sProcessCheck.ToLower = "wine-preloader" Then
|
||||
If mgrCommon.IsUnix And (sProcessCheck.ToLower = "wine-preloader" Or sProcessCheck.ToLower = "wine64-preloader") Then
|
||||
Dim sWinePath As String()
|
||||
'We can't use Path.GetFileName here, Wine uses the Windows seperator in arguments and the Unix version of the function expects a different one.
|
||||
'We can't use Path.GetFileName here, Wine uses the Windows seperator in arguments and Mono expects a different one in Unix.
|
||||
sWinePath = GetUnixProcessArguments(prsCurrent)(0).Split("\")
|
||||
sProcessCheck = sWinePath(sWinePath.Length - 1).Replace(".exe", "")
|
||||
bWineProcess = True
|
||||
|
||||
@@ -80,8 +80,8 @@ Public Class mgrRestore
|
||||
Dim bLocal As Boolean = False
|
||||
Dim bRemote As Boolean = False
|
||||
|
||||
slLocalManifest = mgrManifest.ReadManifest(mgrSQLite.Database.Local)
|
||||
slRemoteManifest = mgrManifest.ReadManifest(mgrSQLite.Database.Remote)
|
||||
slLocalManifest = mgrManifest.ReadLatestManifest(mgrSQLite.Database.Local)
|
||||
slRemoteManifest = mgrManifest.ReadLatestManifest(mgrSQLite.Database.Remote)
|
||||
|
||||
If slLocalManifest.Contains(sAppName) Then
|
||||
oLocalItem = DirectCast(slLocalManifest(sAppName), clsBackup)
|
||||
@@ -117,8 +117,8 @@ Public Class mgrRestore
|
||||
Dim bLocal As Boolean = False
|
||||
Dim bRemote As Boolean = False
|
||||
|
||||
slLocalManifest = mgrManifest.ReadManifest(mgrSQLite.Database.Local)
|
||||
slRemoteManifest = mgrManifest.ReadManifest(mgrSQLite.Database.Remote)
|
||||
slLocalManifest = mgrManifest.ReadLatestManifest(mgrSQLite.Database.Local)
|
||||
slRemoteManifest = mgrManifest.ReadLatestManifest(mgrSQLite.Database.Remote)
|
||||
|
||||
For Each oItem As clsBackup In slRemoteManifest.Values
|
||||
If slLocalManifest.Contains(oItem.Name) Then
|
||||
@@ -148,13 +148,13 @@ Public Class mgrRestore
|
||||
Dim slRemoteManifest As SortedList
|
||||
Dim slRemovedItems As New SortedList
|
||||
|
||||
slLocalManifest = mgrManifest.ReadManifest(mgrSQLite.Database.Local)
|
||||
slRemoteManifest = mgrManifest.ReadManifest(mgrSQLite.Database.Remote)
|
||||
slLocalManifest = mgrManifest.ReadLatestManifest(mgrSQLite.Database.Local)
|
||||
slRemoteManifest = mgrManifest.ReadLatestManifest(mgrSQLite.Database.Remote)
|
||||
|
||||
For Each oItem As clsBackup In slLocalManifest.Values
|
||||
If Not slRemoteManifest.Contains(oItem.Name) Then
|
||||
slRemovedItems.Add(oItem.Name, oItem)
|
||||
mgrManifest.DoManifestDelete(oItem, mgrSQLite.Database.Local)
|
||||
mgrManifest.DoManifestDeletebyName(oItem, mgrSQLite.Database.Local)
|
||||
End If
|
||||
Next
|
||||
|
||||
@@ -268,8 +268,8 @@ Public Class mgrRestore
|
||||
|
||||
If bRestoreCompleted Then
|
||||
'Save Local Manifest
|
||||
If mgrManifest.DoManifestCheck(oBackupInfo.Name, mgrSQLite.Database.Local) Then
|
||||
mgrManifest.DoManifestUpdate(oBackupInfo, mgrSQLite.Database.Local)
|
||||
If mgrManifest.DoGlobalManifestCheck(oBackupInfo.Name, mgrSQLite.Database.Local) Then
|
||||
mgrManifest.DoManifestUpdateByName(oBackupInfo, mgrSQLite.Database.Local)
|
||||
Else
|
||||
mgrManifest.DoManifestAdd(oBackupInfo, mgrSQLite.Database.Local)
|
||||
End If
|
||||
|
||||
+60
-16
@@ -80,7 +80,7 @@ Public Class mgrSQLite
|
||||
sSql &= "CREATE TABLE monitorlist (MonitorID TEXT NOT NULL UNIQUE, Name TEXT NOT NULL, Process TEXT NOT NULL, Path TEXT, " &
|
||||
"AbsolutePath BOOLEAN NOT NULL, FolderSave BOOLEAN NOT NULL, FileType TEXT, TimeStamp BOOLEAN NOT NULL, ExcludeList TEXT NOT NULL, " &
|
||||
"ProcessPath TEXT, Icon TEXT, Hours REAL, Version TEXT, Company TEXT, Enabled BOOLEAN NOT NULL, MonitorOnly BOOLEAN NOT NULL, " &
|
||||
"PRIMARY KEY(Name, Process));"
|
||||
"BackupLimit INTEGER NOT NULL, PRIMARY KEY(Name, Process));"
|
||||
|
||||
'Add Tables (Tags)
|
||||
sSql &= "CREATE TABLE tags (TagID TEXT NOT NULL UNIQUE, Name TEXT NOT NULL PRIMARY KEY); "
|
||||
@@ -92,7 +92,7 @@ Public Class mgrSQLite
|
||||
sSql &= "CREATE TABLE variables (VariableID TEXT NOT NULL UNIQUE, Name TEXT NOT NULL PRIMARY KEY, Path TEXT NOT NULL);"
|
||||
|
||||
'Add Tables (Local Manifest)
|
||||
sSql &= "CREATE TABLE manifest (ManifestID TEXT NOT NULL UNIQUE, Name TEXT NOT NULL PRIMARY KEY, FileName TEXT NOT NULL, RestorePath TEXT NOT NULL, " &
|
||||
sSql &= "CREATE TABLE manifest (ManifestID TEXT NOT NULL PRIMARY KEY, Name TEXT NOT NULL, FileName TEXT NOT NULL, RestorePath TEXT NOT NULL, " &
|
||||
"AbsolutePath BOOLEAN NOT NULL, DateUpdated TEXT NOT NULL, UpdatedBy TEXT NOT NULL, CheckSum TEXT);"
|
||||
|
||||
'Set Version
|
||||
@@ -111,16 +111,16 @@ Public Class mgrSQLite
|
||||
|
||||
Try
|
||||
'Create the DB
|
||||
SQLiteConnection.CreateFile(sDatabaseLocation)
|
||||
SqliteConnection.CreateFile(sDatabaseLocation)
|
||||
|
||||
'Add Tables (Remote Monitor List)
|
||||
sSql = "CREATE TABLE monitorlist (MonitorID TEXT NOT NULL UNIQUE, Name TEXT NOT NULL, Process TEXT NOT NULL, Path TEXT, " &
|
||||
"AbsolutePath BOOLEAN NOT NULL, FolderSave BOOLEAN NOT NULL, FileType TEXT, TimeStamp BOOLEAN NOT NULL, ExcludeList TEXT NOT NULL, " &
|
||||
"ProcessPath TEXT, Icon TEXT, Hours REAL, Version TEXT, Company TEXT, Enabled BOOLEAN NOT NULL, MonitorOnly BOOLEAN NOT NULL, " &
|
||||
"PRIMARY KEY(Name, Process));"
|
||||
"BackupLimit INTEGER NOT NULL, PRIMARY KEY(Name, Process));"
|
||||
|
||||
'Add Tables (Remote Manifest)
|
||||
sSql &= "CREATE TABLE manifest (ManifestID TEXT NOT NULL UNIQUE, Name TEXT NOT NULL PRIMARY KEY, FileName TEXT NOT NULL, RestorePath TEXT NOT NULL, " &
|
||||
sSql &= "CREATE TABLE manifest (ManifestID TEXT NOT NULL PRIMARY KEY, Name TEXT NOT NULL, FileName TEXT NOT NULL, RestorePath TEXT NOT NULL, " &
|
||||
"AbsolutePath BOOLEAN NOT NULL, DateUpdated TEXT NOT NULL, UpdatedBy TEXT NOT NULL, CheckSum TEXT);"
|
||||
|
||||
'Add Tables (Remote Tags)
|
||||
@@ -155,7 +155,7 @@ Public Class mgrSQLite
|
||||
|
||||
Public Sub Connect()
|
||||
If CheckDB() Then
|
||||
db = New SQLiteConnection(sConnectString)
|
||||
db = New SqliteConnection(sConnectString)
|
||||
db.Open()
|
||||
Else
|
||||
CreateDB()
|
||||
@@ -167,18 +167,18 @@ Public Class mgrSQLite
|
||||
db.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub BuildParams(ByRef command As SQLiteCommand, ByRef hshParams As Hashtable)
|
||||
Private Sub BuildParams(ByRef command As SqliteCommand, ByRef hshParams As Hashtable)
|
||||
For Each de As DictionaryEntry In hshParams
|
||||
command.Parameters.AddWithValue(de.Key, de.Value)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Public Function RunParamQuery(ByVal sSQL As String, ByVal hshParams As Hashtable) As Boolean
|
||||
Dim trans As SQLiteTransaction
|
||||
Dim command As SQLiteCommand
|
||||
Dim trans As SqliteTransaction
|
||||
Dim command As SqliteCommand
|
||||
|
||||
Connect()
|
||||
command = New SQLiteCommand(sSQL, db)
|
||||
command = New SqliteCommand(sSQL, db)
|
||||
BuildParams(command, hshParams)
|
||||
trans = db.BeginTransaction()
|
||||
|
||||
@@ -198,11 +198,11 @@ Public Class mgrSQLite
|
||||
End Function
|
||||
|
||||
Public Function RunMassParamQuery(ByVal sSQL As String, ByVal oParamList As List(Of Hashtable)) As Boolean
|
||||
Dim trans As SQLiteTransaction
|
||||
Dim command As SQLiteCommand
|
||||
Dim trans As SqliteTransaction
|
||||
Dim command As SqliteCommand
|
||||
|
||||
Connect()
|
||||
command = New SQLiteCommand(sSQL, db)
|
||||
command = New SqliteCommand(sSQL, db)
|
||||
trans = db.BeginTransaction()
|
||||
|
||||
Try
|
||||
@@ -224,12 +224,12 @@ Public Class mgrSQLite
|
||||
End Function
|
||||
|
||||
Public Function ReadParamData(ByVal sSQL As String, ByVal hshParams As Hashtable) As DataSet
|
||||
Dim adapter As SQLiteDataAdapter
|
||||
Dim command As SQLiteCommand
|
||||
Dim adapter As SqliteDataAdapter
|
||||
Dim command As SqliteCommand
|
||||
Dim oData As New DataSet
|
||||
|
||||
Connect()
|
||||
command = New SQLiteCommand(sSQL, db)
|
||||
command = New SqliteCommand(sSQL, db)
|
||||
BuildParams(command, hshParams)
|
||||
|
||||
Try
|
||||
@@ -556,6 +556,50 @@ Public Class mgrSQLite
|
||||
End If
|
||||
End If
|
||||
|
||||
'0.98 Upgrade
|
||||
If GetDatabaseVersion() < 98 Then
|
||||
If eDatabase = Database.Local Then
|
||||
'Backup DB before starting
|
||||
BackupDB("v97")
|
||||
|
||||
'Overhaul Manifest Table
|
||||
sSQL = "CREATE TABLE manifest_new (ManifestID TEXT NOT NULL PRIMARY KEY, Name TEXT NOT NULL, FileName TEXT NOT NULL, RestorePath TEXT NOT NULL, AbsolutePath BOOLEAN NOT NULL, DateUpdated TEXT NOT NULL, UpdatedBy TEXT NOT NULL, CheckSum TEXT);"
|
||||
sSQL &= "INSERT INTO manifest_new (ManifestID, Name, FileName, RestorePath, AbsolutePath, DateUpdated, UpdatedBy) "
|
||||
sSQL &= "SELECT ManifestID, Name, FileName, RestorePath, AbsolutePath, DateUpdated, UpdatedBy FROM manifest;"
|
||||
sSQL &= "DROP TABLE manifest; ALTER TABLE manifest_new RENAME TO manifest;"
|
||||
|
||||
'Add backup limit field
|
||||
sSQL &= "ALTER TABLE monitorlist ADD COLUMN BackupLimit INTEGER NOT NULL DEFAULT 5;"
|
||||
|
||||
sSQL &= "PRAGMA user_version=98"
|
||||
|
||||
RunParamQuery(sSQL, New Hashtable)
|
||||
|
||||
'Run a compact
|
||||
CompactDatabase()
|
||||
End If
|
||||
If eDatabase = Database.Remote Then
|
||||
'Backup DB before starting
|
||||
BackupDB("v97")
|
||||
|
||||
'Overhaul Manifest Table
|
||||
sSQL = "CREATE TABLE manifest_new (ManifestID TEXT NOT NULL PRIMARY KEY, Name TEXT NOT NULL, FileName TEXT NOT NULL, RestorePath TEXT NOT NULL, AbsolutePath BOOLEAN NOT NULL, DateUpdated TEXT NOT NULL, UpdatedBy TEXT NOT NULL, CheckSum TEXT);"
|
||||
sSQL &= "INSERT INTO manifest_new (ManifestID, Name, FileName, RestorePath, AbsolutePath, DateUpdated, UpdatedBy) "
|
||||
sSQL &= "SELECT ManifestID, Name, FileName, RestorePath, AbsolutePath, DateUpdated, UpdatedBy FROM manifest;"
|
||||
sSQL &= "DROP TABLE manifest; ALTER TABLE manifest_new RENAME TO manifest;"
|
||||
|
||||
'Add backup limit field
|
||||
sSQL &= "ALTER TABLE monitorlist ADD COLUMN BackupLimit INTEGER NOT NULL DEFAULT 5;"
|
||||
|
||||
sSQL &= "PRAGMA user_version=98"
|
||||
|
||||
RunParamQuery(sSQL, New Hashtable)
|
||||
|
||||
'Run a compact
|
||||
CompactDatabase()
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Public Function GetDBSize() As Long
|
||||
|
||||
+27
-15
@@ -1,26 +1,44 @@
|
||||
Public Class mgrTags
|
||||
|
||||
Private Shared Function MapToObject(ByVal dr As DataRow) As clsTag
|
||||
Dim oTag As New clsTag
|
||||
|
||||
oTag.ID = CStr(dr("TagID"))
|
||||
oTag.Name = CStr(dr("Name"))
|
||||
|
||||
Return oTag
|
||||
End Function
|
||||
|
||||
Private Shared Function SetCoreParameters(ByVal oTag As clsTag) As Hashtable
|
||||
Dim hshParams As New Hashtable
|
||||
|
||||
hshParams.Add("ID", oTag.ID)
|
||||
hshParams.Add("Name", oTag.Name)
|
||||
|
||||
Return hshParams
|
||||
End Function
|
||||
|
||||
Public Shared Sub DoTagAdd(ByVal oTag As clsTag, Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local)
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim sSQL As String
|
||||
Dim hshParams As New Hashtable
|
||||
Dim hshParams As Hashtable
|
||||
|
||||
sSQL = "INSERT INTO tags VALUES (@ID, @Name)"
|
||||
hshParams.Add("ID", oTag.ID)
|
||||
hshParams.Add("Name", oTag.Name)
|
||||
|
||||
hshParams = SetCoreParameters(oTag)
|
||||
|
||||
oDatabase.RunParamQuery(sSQL, hshParams)
|
||||
End Sub
|
||||
|
||||
Public Shared Sub DoTagUpdate(ByVal oTag As clsTag, Optional ByVal iSelectDB As mgrSQLite.Database = mgrSQLite.Database.Local)
|
||||
Dim oDatabase As New mgrSQLite(iSelectDB)
|
||||
Dim sSQL As String
|
||||
Dim hshParams As New Hashtable
|
||||
Dim hshParams As Hashtable
|
||||
|
||||
sSQL = "UPDATE tags SET Name=@Name "
|
||||
sSQL &= "WHERE TagID = @ID"
|
||||
|
||||
hshParams.Add("Name", oTag.Name)
|
||||
hshParams.Add("ID", oTag.ID)
|
||||
hshParams = SetCoreParameters(oTag)
|
||||
|
||||
oDatabase.RunParamQuery(sSQL, hshParams)
|
||||
|
||||
@@ -57,9 +75,7 @@
|
||||
oData = oDatabase.ReadParamData(sSQL, hshParams)
|
||||
|
||||
For Each dr As DataRow In oData.Tables(0).Rows
|
||||
oTag = New clsTag
|
||||
oTag.ID = CStr(dr("TagID"))
|
||||
oTag.Name = CStr(dr("Name"))
|
||||
oTag = MapToObject(dr)
|
||||
Next
|
||||
|
||||
Return oTag
|
||||
@@ -80,9 +96,7 @@
|
||||
oData = oDatabase.ReadParamData(sSQL, hshParams)
|
||||
|
||||
For Each dr As DataRow In oData.Tables(0).Rows
|
||||
oTag = New clsTag
|
||||
oTag.ID = CStr(dr("TagID"))
|
||||
oTag.Name = CStr(dr("Name"))
|
||||
oTag = MapToObject(dr)
|
||||
Next
|
||||
|
||||
Return oTag
|
||||
@@ -124,9 +138,7 @@
|
||||
oData = oDatabase.ReadParamData(sSQL, New Hashtable)
|
||||
|
||||
For Each dr As DataRow In oData.Tables(0).Rows
|
||||
oTag = New clsTag
|
||||
oTag.ID = CStr(dr("TagID"))
|
||||
oTag.Name = CStr(dr("Name"))
|
||||
oTag = MapToObject(dr)
|
||||
hshList.Add(oTag.Name, oTag)
|
||||
Next
|
||||
|
||||
|
||||
@@ -1,5 +1,25 @@
|
||||
Public Class mgrVariables
|
||||
|
||||
Private Shared Function MapToObject(ByVal dr As DataRow) As clsPathVariable
|
||||
Dim oCustomVariable As New clsPathVariable
|
||||
|
||||
oCustomVariable.ID = CStr(dr("VariableID"))
|
||||
oCustomVariable.Name = CStr(dr("Name"))
|
||||
oCustomVariable.Path = CStr(dr("Path"))
|
||||
|
||||
Return oCustomVariable
|
||||
End Function
|
||||
|
||||
Private Shared Function SetCoreParameters(ByVal oCustomVariable As clsPathVariable) As Hashtable
|
||||
Dim hshParams As New Hashtable
|
||||
|
||||
hshParams.Add("ID", oCustomVariable.ID)
|
||||
hshParams.Add("Name", oCustomVariable.Name)
|
||||
hshParams.Add("Path", oCustomVariable.Path)
|
||||
|
||||
Return hshParams
|
||||
End Function
|
||||
|
||||
Public Shared Sub DoPathUpdate(ByVal sOld As String, ByVal sNew As String)
|
||||
Dim oDatabase As New mgrSQLite(mgrSQLite.Database.Local)
|
||||
Dim sSQL As String
|
||||
@@ -15,26 +35,22 @@
|
||||
Public Shared Sub DoVariableAdd(ByVal oCustomVariable As clsPathVariable)
|
||||
Dim oDatabase As New mgrSQLite(mgrSQLite.Database.Local)
|
||||
Dim sSQL As String
|
||||
Dim hshParams As New Hashtable
|
||||
Dim hshParams As Hashtable
|
||||
|
||||
sSQL = "INSERT INTO variables VALUES (@ID, @Name, @Path)"
|
||||
hshParams.Add("ID", oCustomVariable.ID)
|
||||
hshParams.Add("Name", oCustomVariable.Name)
|
||||
hshParams.Add("Path", oCustomVariable.Path)
|
||||
hshParams = SetCoreParameters(oCustomVariable)
|
||||
oDatabase.RunParamQuery(sSQL, hshParams)
|
||||
End Sub
|
||||
|
||||
Public Shared Sub DoVariableUpdate(ByVal oCustomVariable As clsPathVariable)
|
||||
Dim oDatabase As New mgrSQLite(mgrSQLite.Database.Local)
|
||||
Dim sSQL As String
|
||||
Dim hshParams As New Hashtable
|
||||
Dim hshParams As Hashtable
|
||||
|
||||
sSQL = "UPDATE variables SET Name=@Name, Path = @Path "
|
||||
sSQL &= "WHERE VariableID = @ID"
|
||||
|
||||
hshParams.Add("Name", oCustomVariable.Name)
|
||||
hshParams.Add("Path", oCustomVariable.Path)
|
||||
hshParams.Add("ID", oCustomVariable.ID)
|
||||
hshParams = SetCoreParameters(oCustomVariable)
|
||||
|
||||
oDatabase.RunParamQuery(sSQL, hshParams)
|
||||
|
||||
@@ -69,10 +85,7 @@
|
||||
oData = oDatabase.ReadParamData(sSQL, hshParams)
|
||||
|
||||
For Each dr As DataRow In oData.Tables(0).Rows
|
||||
oCustomVariable = New clsPathVariable
|
||||
oCustomVariable.ID = CStr(dr("VariableID"))
|
||||
oCustomVariable.Name = CStr(dr("Name"))
|
||||
oCustomVariable.Path = CStr(dr("Path"))
|
||||
oCustomVariable = MapToObject(dr)
|
||||
Next
|
||||
|
||||
Return oCustomVariable
|
||||
@@ -93,10 +106,7 @@
|
||||
oData = oDatabase.ReadParamData(sSQL, hshParams)
|
||||
|
||||
For Each dr As DataRow In oData.Tables(0).Rows
|
||||
oCustomVariable = New clsPathVariable
|
||||
oCustomVariable.ID = CStr(dr("VariableID"))
|
||||
oCustomVariable.Name = CStr(dr("Name"))
|
||||
oCustomVariable.Path = CStr(dr("Path"))
|
||||
oCustomVariable = MapToObject(dr)
|
||||
Next
|
||||
|
||||
Return oCustomVariable
|
||||
@@ -138,10 +148,7 @@
|
||||
oData = oDatabase.ReadParamData(sSQL, New Hashtable)
|
||||
|
||||
For Each dr As DataRow In oData.Tables(0).Rows
|
||||
oCustomVariable = New clsPathVariable
|
||||
oCustomVariable.ID = CStr(dr("VariableID"))
|
||||
oCustomVariable.Name = CStr(dr("Name"))
|
||||
oCustomVariable.Path = CStr(dr("Path"))
|
||||
oCustomVariable = MapToObject(dr)
|
||||
hshList.Add(oCustomVariable.Name, oCustomVariable)
|
||||
Next
|
||||
|
||||
|
||||
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
|
||||
' by using the '*' as shown below:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("0.97.*")>
|
||||
<Assembly: AssemblyFileVersion("0.97.0.0")>
|
||||
<Assembly: AssemblyVersion("1.0.0.*")>
|
||||
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||
|
||||
<Assembly: NeutralResourcesLanguageAttribute("en")>
|
||||
Generated
+153
-36
@@ -259,7 +259,7 @@ Namespace My.Resources
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Save Entire Folder.
|
||||
''' Looks up a localized string similar to Save entire folder.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmAddWizard_chkFolderSave() As String
|
||||
Get
|
||||
@@ -268,7 +268,7 @@ Namespace My.Resources
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Time Stamp Backup.
|
||||
''' Looks up a localized string similar to Save multiple backups.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmAddWizard_chkTimeStamp() As String
|
||||
Get
|
||||
@@ -501,6 +501,15 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Backup Limit.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmAddWizard_lblLimit() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("frmAddWizard_lblLimit", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to The name will be automatically filtered for length and invalid characters. You may drag and drop a shortcut here to complete this step, only Windows shortcuts are currently supported..
|
||||
'''</summary>
|
||||
@@ -574,7 +583,7 @@ Namespace My.Resources
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to If you're unsure of exactly which files to backup, make sure Save Entire Folder is checked. You can also time stamp your backup files to make incremental backups..
|
||||
''' Looks up a localized string similar to If you're unsure of exactly which files to backup, make sure Save entire folder is checked. You can also choose to save multiple backups and set a limit on how many to keep..
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmAddWizard_lblStep3Instructions() As String
|
||||
Get
|
||||
@@ -709,7 +718,7 @@ Namespace My.Resources
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Timestamp.
|
||||
''' Looks up a localized string similar to Multiple Backups.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmAddWizard_Summary_Timestamp() As String
|
||||
Get
|
||||
@@ -1069,7 +1078,7 @@ Namespace My.Resources
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to [PARAM] by [PARAM].
|
||||
''' Looks up a localized string similar to [PARAM] ([PARAM]).
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmGameManager_BackupTimeAndName() As String
|
||||
Get
|
||||
@@ -1077,6 +1086,24 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Choose a new [PARAM] backup file.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmGameManager_BrowseBackup() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("frmGameManager_BrowseBackup", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to 7-Zip.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmGameManager_BrowseBackupType() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("frmGameManager_BrowseBackupType", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to +.
|
||||
'''</summary>
|
||||
@@ -1113,6 +1140,15 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to &Change Backup File.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmGameManager_btnChangeBackup() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("frmGameManager_btnChangeBackup", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to C&lose.
|
||||
'''</summary>
|
||||
@@ -1285,7 +1321,7 @@ Namespace My.Resources
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Timestamp each backup.
|
||||
''' Looks up a localized string similar to Save multiple backups.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmGameManager_chkTimeStamp() As String
|
||||
Get
|
||||
@@ -1347,6 +1383,24 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to &All Files.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmGameManager_cmsDeleteAll() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("frmGameManager_cmsDeleteAll", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to &Selected File.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmGameManager_cmsDeleteOne() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("frmGameManager_cmsDeleteOne", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to &File....
|
||||
'''</summary>
|
||||
@@ -1375,7 +1429,25 @@ Namespace My.Resources
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to This will delete the backup file and all records of this backup. This cannot be undone. [BR][BR]Do you want to remove the data for [PARAM]?.
|
||||
''' Looks up a localized string similar to [PARAM] will be the new backup file for [PARAM].[BR][BR]Is this correct?.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmGameManager_ConfirmBackupChange() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("frmGameManager_ConfirmBackupChange", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Do you want to restore [PARAM] now?.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmGameManager_ConfirmBackupChangeRestore() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("frmGameManager_ConfirmBackupChangeRestore", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to This will delete the selected backup file. This cannot be undone. [BR][BR]Do you want to delete [PARAM]?.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmGameManager_ConfirmBackupDelete() As String
|
||||
Get
|
||||
@@ -1384,11 +1456,11 @@ Namespace My.Resources
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to The backup folder [PARAM] still contains [PARAM] directories and [PARAM] files.[BR][BR]Do you want to delete the contents and remove the sub-folder for this game?.
|
||||
''' Looks up a localized string similar to This will delete all backup files for [PARAM]. This cannot be undone. [BR][BR]Do you want to continue?.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmGameManager_ConfirmBackupFolderDelete() As String
|
||||
Friend ReadOnly Property frmGameManager_ConfirmBackupDeleteAll() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("frmGameManager_ConfirmBackupFolderDelete", resourceCulture)
|
||||
Return ResourceManager.GetString("frmGameManager_ConfirmBackupDeleteAll", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
@@ -1491,6 +1563,24 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to [PARAM] is already the current backup file..
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmGameManager_ErrorBackupChangeFileName() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("frmGameManager_ErrorBackupChangeFileName", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to You cannot choose a file located outside the current [PARAM] backup folder..
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmGameManager_ErrorBackupChangePath() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("frmGameManager_ErrorBackupChangePath", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to A game with this exact name and process already exists..
|
||||
'''</summary>
|
||||
@@ -1689,6 +1779,15 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Backup File:.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmGameManager_lblBackupFile() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("frmGameManager_lblBackupFile", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Company:.
|
||||
'''</summary>
|
||||
@@ -1698,24 +1797,6 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Current Backup:.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmGameManager_lblCurrentBackup() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("frmGameManager_lblCurrentBackup", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Backup Size:.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmGameManager_lblFileSize() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("frmGameManager_lblFileSize", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Game Path:.
|
||||
'''</summary>
|
||||
@@ -1744,11 +1825,20 @@ Namespace My.Resources
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Local Backup:.
|
||||
''' Looks up a localized string similar to Backup Limit.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmGameManager_lblLastBackup() As String
|
||||
Friend ReadOnly Property frmGameManager_lblLimit() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("frmGameManager_lblLastBackup", resourceCulture)
|
||||
Return ResourceManager.GetString("frmGameManager_lblLimit", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Local Data:.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmGameManager_lblLocalData() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("frmGameManager_lblLocalData", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
@@ -1779,6 +1869,15 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Backup Data:.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmGameManager_lblRemote() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("frmGameManager_lblRemote", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Restore Path:.
|
||||
'''</summary>
|
||||
@@ -1807,11 +1906,11 @@ Namespace My.Resources
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Never.
|
||||
''' Looks up a localized string similar to None.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmGameManager_Never() As String
|
||||
Friend ReadOnly Property frmGameManager_None() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("frmGameManager_Never", resourceCulture)
|
||||
Return ResourceManager.GetString("frmGameManager_None", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
@@ -1860,6 +1959,15 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Unknown.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmGameManager_Unknown() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("frmGameManager_Unknown", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Up to Date!.
|
||||
'''</summary>
|
||||
@@ -2167,7 +2275,7 @@ Namespace My.Resources
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Game Backup Monitor[BR]Version: [PARAM] Beta ([PARAM])[BR]Build: [PARAM][BR][PARAM][BR][BR]This program comes with ABSOLUTELY NO WARRANTY.[BR]This is free software, and you are welcome to redistribute it under certain conditions.[BR][BR]See gpl-3.0.html in the program folder for details..
|
||||
''' Looks up a localized string similar to Game Backup Monitor[BR]Version: [PARAM] ([PARAM])[BR]Build: [PARAM][BR][PARAM][BR][BR]This program comes with ABSOLUTELY NO WARRANTY.[BR]This is free software, and you are welcome to redistribute it under certain conditions.[BR][BR]See gpl-3.0.html in the program folder for details..
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmMain_About() As String
|
||||
Get
|
||||
@@ -3850,7 +3958,7 @@ Namespace My.Resources
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Time stamp each backup.
|
||||
''' Looks up a localized string similar to Save multiple backups.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property frmSyncFields_chkTimeStamp() As String
|
||||
Get
|
||||
@@ -4294,6 +4402,15 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to [PARAM] was automatically removed..
|
||||
'''</summary>
|
||||
Friend ReadOnly Property mgrBackup_BackupLimitExceeded() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("mgrBackup_BackupLimitExceeded", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to [PARAM] backup finished with warnings or errors..
|
||||
'''</summary>
|
||||
|
||||
@@ -122,7 +122,7 @@
|
||||
<value>..\Resources\Admin.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="frmMain_About" xml:space="preserve">
|
||||
<value>Game Backup Monitor[BR]Version: [PARAM] Beta ([PARAM])[BR]Build: [PARAM][BR][PARAM][BR][BR]This program comes with ABSOLUTELY NO WARRANTY.[BR]This is free software, and you are welcome to redistribute it under certain conditions.[BR][BR]See gpl-3.0.html in the program folder for details.</value>
|
||||
<value>Game Backup Monitor[BR]Version: [PARAM] ([PARAM])[BR]Build: [PARAM][BR][PARAM][BR][BR]This program comes with ABSOLUTELY NO WARRANTY.[BR]This is free software, and you are welcome to redistribute it under certain conditions.[BR][BR]See gpl-3.0.html in the program folder for details.</value>
|
||||
</data>
|
||||
<data name="frmMain_ManifestAreadyClean" xml:space="preserve">
|
||||
<value>The local manifest is clean.</value>
|
||||
@@ -431,7 +431,7 @@
|
||||
<value>[PARAM] MB</value>
|
||||
</data>
|
||||
<data name="frmGameManager_BackupTimeAndName" xml:space="preserve">
|
||||
<value>[PARAM] by [PARAM]</value>
|
||||
<value>[PARAM] ([PARAM])</value>
|
||||
</data>
|
||||
<data name="frmGameManager_btnAdd" xml:space="preserve">
|
||||
<value>+</value>
|
||||
@@ -503,7 +503,7 @@
|
||||
<value>Monitor only</value>
|
||||
</data>
|
||||
<data name="frmGameManager_chkTimeStamp" xml:space="preserve">
|
||||
<value>Timestamp each backup</value>
|
||||
<value>Save multiple backups</value>
|
||||
</data>
|
||||
<data name="frmGameManager_ChooseCustomIcon" xml:space="preserve">
|
||||
<value>Choose a custom icon for the game</value>
|
||||
@@ -527,10 +527,7 @@
|
||||
<value>Are you sure you want to run a backup for [PARAM]? This will close the form.</value>
|
||||
</data>
|
||||
<data name="frmGameManager_ConfirmBackupDelete" xml:space="preserve">
|
||||
<value>This will delete the backup file and all records of this backup. This cannot be undone. [BR][BR]Do you want to remove the data for [PARAM]?</value>
|
||||
</data>
|
||||
<data name="frmGameManager_ConfirmBackupFolderDelete" xml:space="preserve">
|
||||
<value>The backup folder [PARAM] still contains [PARAM] directories and [PARAM] files.[BR][BR]Do you want to delete the contents and remove the sub-folder for this game?</value>
|
||||
<value>This will delete the selected backup file. This cannot be undone. [BR][BR]Do you want to delete [PARAM]?</value>
|
||||
</data>
|
||||
<data name="frmGameManager_ConfirmGameDelete" xml:space="preserve">
|
||||
<value>Are you sure you want to delete [PARAM]? This cannot be undone.[BR][BR]This will not delete any backup files that already exist for this game.</value>
|
||||
@@ -616,11 +613,11 @@
|
||||
<data name="frmGameManager_lblCompany" xml:space="preserve">
|
||||
<value>Company:</value>
|
||||
</data>
|
||||
<data name="frmGameManager_lblCurrentBackup" xml:space="preserve">
|
||||
<value>Current Backup:</value>
|
||||
<data name="frmGameManager_lblRemote" xml:space="preserve">
|
||||
<value>Backup Data:</value>
|
||||
</data>
|
||||
<data name="frmGameManager_lblFileSize" xml:space="preserve">
|
||||
<value>Backup Size:</value>
|
||||
<data name="frmGameManager_lblBackupFile" xml:space="preserve">
|
||||
<value>Backup File:</value>
|
||||
</data>
|
||||
<data name="frmGameManager_lblGamePath" xml:space="preserve">
|
||||
<value>Game Path:</value>
|
||||
@@ -631,8 +628,8 @@
|
||||
<data name="frmGameManager_lblIcon" xml:space="preserve">
|
||||
<value>Icon:</value>
|
||||
</data>
|
||||
<data name="frmGameManager_lblLastBackup" xml:space="preserve">
|
||||
<value>Local Backup:</value>
|
||||
<data name="frmGameManager_lblLocalData" xml:space="preserve">
|
||||
<value>Local Data:</value>
|
||||
</data>
|
||||
<data name="frmGameManager_lblName" xml:space="preserve">
|
||||
<value>Name:</value>
|
||||
@@ -649,8 +646,8 @@
|
||||
<data name="frmGameManager_lblVersion" xml:space="preserve">
|
||||
<value>Version:</value>
|
||||
</data>
|
||||
<data name="frmGameManager_Never" xml:space="preserve">
|
||||
<value>Never</value>
|
||||
<data name="frmGameManager_None" xml:space="preserve">
|
||||
<value>None</value>
|
||||
</data>
|
||||
<data name="frmGameManager_optAllGames" xml:space="preserve">
|
||||
<value>All</value>
|
||||
@@ -704,10 +701,10 @@
|
||||
<value>...</value>
|
||||
</data>
|
||||
<data name="frmAddWizard_chkFolderSave" xml:space="preserve">
|
||||
<value>Save Entire Folder</value>
|
||||
<value>Save entire folder</value>
|
||||
</data>
|
||||
<data name="frmAddWizard_chkTimeStamp" xml:space="preserve">
|
||||
<value>Time Stamp Backup</value>
|
||||
<value>Save multiple backups</value>
|
||||
</data>
|
||||
<data name="frmAddWizard_ChooseProcess" xml:space="preserve">
|
||||
<value>Choose exe file that starts the game</value>
|
||||
@@ -809,7 +806,7 @@
|
||||
<value>Choose Files to Backup</value>
|
||||
</data>
|
||||
<data name="frmAddWizard_lblStep3Instructions" xml:space="preserve">
|
||||
<value>If you're unsure of exactly which files to backup, make sure Save Entire Folder is checked. You can also time stamp your backup files to make incremental backups.</value>
|
||||
<value>If you're unsure of exactly which files to backup, make sure Save entire folder is checked. You can also choose to save multiple backups and set a limit on how many to keep.</value>
|
||||
</data>
|
||||
<data name="frmAddWizard_lblStep3Intro" xml:space="preserve">
|
||||
<value>Choose the location of your game's save files:</value>
|
||||
@@ -854,7 +851,7 @@
|
||||
<value>Save Path</value>
|
||||
</data>
|
||||
<data name="frmAddWizard_Summary_Timestamp" xml:space="preserve">
|
||||
<value>Timestamp</value>
|
||||
<value>Multiple Backups</value>
|
||||
</data>
|
||||
<data name="frmAdvancedImport_btnCancel" xml:space="preserve">
|
||||
<value>&Cancel</value>
|
||||
@@ -1652,7 +1649,7 @@
|
||||
<value>Monitor this game</value>
|
||||
</data>
|
||||
<data name="frmSyncFields_chkTimeStamp" xml:space="preserve">
|
||||
<value>Time stamp each backup</value>
|
||||
<value>Save multiple backups</value>
|
||||
</data>
|
||||
<data name="frmSyncFields_chkVersion" xml:space="preserve">
|
||||
<value>Version</value>
|
||||
@@ -1693,4 +1690,46 @@
|
||||
<data name="App_URLImportLinux" xml:space="preserve">
|
||||
<value>http://mikemaximus.github.io/gbm-web/GBM_Official_Linux.xml</value>
|
||||
</data>
|
||||
<data name="frmGameManager_BrowseBackup" xml:space="preserve">
|
||||
<value>Choose a new [PARAM] backup file</value>
|
||||
</data>
|
||||
<data name="frmGameManager_BrowseBackupType" xml:space="preserve">
|
||||
<value>7-Zip</value>
|
||||
</data>
|
||||
<data name="frmGameManager_btnChangeBackup" xml:space="preserve">
|
||||
<value>&Change Backup File</value>
|
||||
</data>
|
||||
<data name="frmGameManager_ConfirmBackupChange" xml:space="preserve">
|
||||
<value>[PARAM] will be the new backup file for [PARAM].[BR][BR]Is this correct?</value>
|
||||
</data>
|
||||
<data name="frmGameManager_ConfirmBackupChangeRestore" xml:space="preserve">
|
||||
<value>Do you want to restore [PARAM] now?</value>
|
||||
</data>
|
||||
<data name="frmGameManager_ErrorBackupChangeFileName" xml:space="preserve">
|
||||
<value>[PARAM] is already the current backup file.</value>
|
||||
</data>
|
||||
<data name="frmGameManager_ErrorBackupChangePath" xml:space="preserve">
|
||||
<value>You cannot choose a file located outside the current [PARAM] backup folder.</value>
|
||||
</data>
|
||||
<data name="frmGameManager_lblLimit" xml:space="preserve">
|
||||
<value>Backup Limit</value>
|
||||
</data>
|
||||
<data name="mgrBackup_BackupLimitExceeded" xml:space="preserve">
|
||||
<value>[PARAM] was automatically removed.</value>
|
||||
</data>
|
||||
<data name="frmGameManager_cmsDeleteAll" xml:space="preserve">
|
||||
<value>&All Files</value>
|
||||
</data>
|
||||
<data name="frmGameManager_cmsDeleteOne" xml:space="preserve">
|
||||
<value>&Selected File</value>
|
||||
</data>
|
||||
<data name="frmGameManager_ConfirmBackupDeleteAll" xml:space="preserve">
|
||||
<value>This will delete all backup files for [PARAM]. This cannot be undone. [BR][BR]Do you want to continue?</value>
|
||||
</data>
|
||||
<data name="frmAddWizard_lblLimit" xml:space="preserve">
|
||||
<value>Backup Limit</value>
|
||||
</data>
|
||||
<data name="frmGameManager_Unknown" xml:space="preserve">
|
||||
<value>Unknown</value>
|
||||
</data>
|
||||
</root>
|
||||
+6
-18
@@ -1,26 +1,14 @@
|
||||
Game Backup Monitor v0.97 Readme
|
||||
Game Backup Monitor v1.0 Readme
|
||||
http://mikemaximus.github.io/gbm-web/
|
||||
gamebackupmonitor@gmail.com
|
||||
|
||||
June 30, 2016
|
||||
December 15, 2016
|
||||
|
||||
Disclaimer:
|
||||
Game Backup Monitor has reached 1.0!
|
||||
|
||||
This is beta release software. You may still encounter some bugs.
|
||||
New in 1.0
|
||||
|
||||
New in 0.97
|
||||
|
||||
- (All) Re-designed the Settings screen as a standard preference panel interface.
|
||||
- (Windows) Updated GBM's version of 7-Zip to 16.02 (2016-05-21)
|
||||
- (All) Custom arguments and switches can now be added to GBM's 7-Zip commands.
|
||||
- (All) Custom versions of 7-Zip Console (7za) can now be used as a supported feature.
|
||||
- (Windows) GBM's packaged version(s) of 7-Zip Console (7za) are now verified as a simple security feature.
|
||||
- (All) A "Set Defaults" button is now available on the Settings screen.
|
||||
- (All) Optional data fields such as "Company" and "Version" can now be included in the sync.
|
||||
- (All) Reduced the maximum length of the session log to improve performance and added a setting to control log autosaves.
|
||||
- (All) A "Quick Filter" has been added to the Game Manager. You can now quickly find a game by typing the name as soon as you open the window.
|
||||
- (Linux) An official game list is now available for Linux, GBM will choose the official list based on your operating system.
|
||||
|
||||
For more information regarding Linux support read the FAQ at http://mikemaximus.github.io/gbm-web/linux.html
|
||||
- (Windows) Resolved issues related to DPI display scaling. GBM looks best with scaling disabled via the Compatability tab.
|
||||
- (All) Very minor bug fixes and tweaks.
|
||||
|
||||
The entire version history of GBM releases is available at http://mikemaximus.github.io/gbm-web/versionhistory.html
|
||||
@@ -5,7 +5,7 @@
|
||||
Game Backup Monitor is a simple, but flexible application that detects games as you play them. Once you finish playing a game, a backup of the saved games will be made automatically using 7-Zip compression. GBM can be used on a single computer, or on multiple computers to effectively add cloud support to any game or application.
|
||||
|
||||
**License**: GNU General Public License version 3.0 (GPLv3)<br />
|
||||
**Language**: English Only<br />
|
||||
**Language**: English ([Translation FAQ] (http://mikemaximus.github.io/gbm-web/translations.html))<br />
|
||||
**Platform**: Windows (.NET 4) & Linux (Mono)
|
||||
|
||||
[About Game Backup Monitor] (http://mikemaximus.github.io/gbm-web/about.html) <br />
|
||||
|
||||
Reference in New Issue
Block a user