Changes for issue #27

GBM/Forms/frmGameManager.vb

@@ -1204,7 +1204,7 @@ Public Class frmGameManager
     Private Sub ExportGameList()
         Dim sLocation As String
 
-        sLocation = mgrCommon.SaveFileBrowser(frmGameManager_ChooseExportXML, "xml", frmGameManager_XML, Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "Game Backup Monitor Export " & Date.Now.ToString("dd-MMM-yyyy"))
+        sLocation = mgrCommon.SaveFileBrowser(frmGameManager_ChooseExportXML, "xml", frmGameManager_XML, Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), frmGameManager_DefaultExportFileName & " " & Date.Now.ToString("dd-MMM-yyyy"))
 
         If sLocation <> String.Empty Then
             mgrMonitorList.ExportMonitorList(sLocation)

GBM/Forms/frmMain.Designer.vb

@@ -62,6 +62,9 @@ Partial Class frmMain
         Me.gMonTools = New System.Windows.Forms.ToolStripMenuItem()
         Me.gMonToolsCleanMan = New System.Windows.Forms.ToolStripMenuItem()
         Me.gMonToolsCompact = New System.Windows.Forms.ToolStripMenuItem()
+        Me.gMonToolsLog = New System.Windows.Forms.ToolStripMenuItem()
+        Me.gMonLogClear = New System.Windows.Forms.ToolStripMenuItem()
+        Me.gMonLogSave = New System.Windows.Forms.ToolStripMenuItem()
         Me.gMonHelp = New System.Windows.Forms.ToolStripMenuItem()
         Me.gMonHelpWebSite = New System.Windows.Forms.ToolStripMenuItem()
         Me.gMonHelpManual = New System.Windows.Forms.ToolStripMenuItem()
@@ -79,6 +82,9 @@ Partial Class frmMain
         Me.lblStatus2 = New System.Windows.Forms.Label()
         Me.lblStatus3 = New System.Windows.Forms.Label()
         Me.pbTime = New System.Windows.Forms.PictureBox()
+        Me.gMonTrayToolsLog = New System.Windows.Forms.ToolStripMenuItem()
+        Me.gMonTrayLogClear = New System.Windows.Forms.ToolStripMenuItem()
+        Me.gMonTrayLogSave = New System.Windows.Forms.ToolStripMenuItem()
         Me.gMonTrayMenu.SuspendLayout()
         Me.gMonStatusStrip.SuspendLayout()
         Me.gMonMainMenu.SuspendLayout()
@@ -99,7 +105,7 @@ Partial Class frmMain
         '
         Me.gMonTrayMenu.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.gMonTrayNotification, Me.gMonTrayShow, Me.gMonTraySep2, Me.gMonTrayMon, Me.gMonTraySettings, Me.gMonTraySetup, Me.gMonTrayTools, Me.gMonTraySep1, Me.gMonTrayExit})
         Me.gMonTrayMenu.Name = "gMonTrayMenu"
-        Me.gMonTrayMenu.Size = New System.Drawing.Size(162, 170)
+        Me.gMonTrayMenu.Size = New System.Drawing.Size(162, 192)
         '
         'gMonTrayNotification
         '
@@ -164,7 +170,7 @@ Partial Class frmMain
         '
         'gMonTrayTools
         '
-        Me.gMonTrayTools.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.gMonTrayToolsCleanMan, Me.gMonTrayToolsCompact})
+        Me.gMonTrayTools.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.gMonTrayToolsCleanMan, Me.gMonTrayToolsCompact, Me.gMonTrayToolsLog})
         Me.gMonTrayTools.Name = "gMonTrayTools"
         Me.gMonTrayTools.Size = New System.Drawing.Size(161, 22)
         Me.gMonTrayTools.Text = "&Tools"
@@ -329,7 +335,7 @@ Partial Class frmMain
         '
         'gMonTools
         '
-        Me.gMonTools.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.gMonToolsCleanMan, Me.gMonToolsCompact})
+        Me.gMonTools.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.gMonToolsCleanMan, Me.gMonToolsCompact, Me.gMonToolsLog})
         Me.gMonTools.Name = "gMonTools"
         Me.gMonTools.Size = New System.Drawing.Size(47, 20)
         Me.gMonTools.Text = "&Tools"
@@ -346,6 +352,25 @@ Partial Class frmMain
         Me.gMonToolsCompact.Size = New System.Drawing.Size(184, 22)
         Me.gMonToolsCompact.Text = "&Compact Databases"
         '
+        'gMonToolsLog
+        '
+        Me.gMonToolsLog.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.gMonLogClear, Me.gMonLogSave})
+        Me.gMonToolsLog.Name = "gMonToolsLog"
+        Me.gMonToolsLog.Size = New System.Drawing.Size(184, 22)
+        Me.gMonToolsLog.Text = "&Log"
+        '
+        'gMonLogClear
+        '
+        Me.gMonLogClear.Name = "gMonLogClear"
+        Me.gMonLogClear.Size = New System.Drawing.Size(152, 22)
+        Me.gMonLogClear.Text = "&Clear"
+        '
+        'gMonLogSave
+        '
+        Me.gMonLogSave.Name = "gMonLogSave"
+        Me.gMonLogSave.Size = New System.Drawing.Size(152, 22)
+        Me.gMonLogSave.Text = "&Save"
+        '
         'gMonHelp
         '
         Me.gMonHelp.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.gMonHelpWebSite, Me.gMonHelpManual, Me.gMonHelpCheckforUpdates, Me.gMonHelpAbout})
@@ -483,6 +508,25 @@ Partial Class frmMain
         Me.pbTime.TabIndex = 18
         Me.pbTime.TabStop = False
         '
+        'gMonTrayToolsLog
+        '
+        Me.gMonTrayToolsLog.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.gMonTrayLogClear, Me.gMonTrayLogSave})
+        Me.gMonTrayToolsLog.Name = "gMonTrayToolsLog"
+        Me.gMonTrayToolsLog.Size = New System.Drawing.Size(184, 22)
+        Me.gMonTrayToolsLog.Text = "&Log"
+        '
+        'gMonTrayLogClear
+        '
+        Me.gMonTrayLogClear.Name = "gMonTrayLogClear"
+        Me.gMonTrayLogClear.Size = New System.Drawing.Size(152, 22)
+        Me.gMonTrayLogClear.Text = "&Clear"
+        '
+        'gMonTrayLogSave
+        '
+        Me.gMonTrayLogSave.Name = "gMonTrayLogSave"
+        Me.gMonTrayLogSave.Size = New System.Drawing.Size(152, 22)
+        Me.gMonTrayLogSave.Text = "&Save"
+        '
         'frmMain
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -578,4 +622,10 @@ Partial Class frmMain
     Friend WithEvents pbTime As System.Windows.Forms.PictureBox
     Friend WithEvents gMonTrayToolsCleanMan As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents gMonToolsCleanMan As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents gMonToolsLog As ToolStripMenuItem
+    Friend WithEvents gMonLogClear As ToolStripMenuItem
+    Friend WithEvents gMonLogSave As ToolStripMenuItem
+    Friend WithEvents gMonTrayToolsLog As ToolStripMenuItem
+    Friend WithEvents gMonTrayLogClear As ToolStripMenuItem
+    Friend WithEvents gMonTrayLogSave As ToolStripMenuItem
 End Class

GBM/Forms/frmMain.vb

@@ -920,9 +920,12 @@ Public Class frmMain
             Dim d As New UpdateLogCallBack(AddressOf UpdateLog)
             Me.Invoke(d, New Object() {sLogUpdate, bTrayUpdate, objIcon, bTimeStamp})
         Else
-            'Clear the log if we are approaching the limit
+            'Auto save and clear the log if we are approaching the limit
             If txtLog.TextLength > 16770000 Then
-                txtLog.Text = String.Empty
+                Dim sLogFile As String = mgrPath.LogFileLocation
+                mgrCommon.SaveText(txtLog.Text, sLogFile)
+                txtLog.Clear()
+                txtLog.AppendText("[" & Date.Now & "] " & mgrCommon.FormatString(frmMain_LogAutoSave, sLogFile))
             End If
 
             'We shouldn't allow any one message to be greater than 255 characters if that same message is pushed to the tray icon
@@ -949,6 +952,22 @@ Public Class frmMain
         Application.DoEvents()
     End Sub
 
+    Private Sub ClearLog()
+        If mgrCommon.ShowMessage(frmMain_ConfirmLogClear, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
+            txtLog.Clear()
+        End If
+    End Sub
+
+    Private Sub SaveLog()
+        Dim sLocation As String
+
+        sLocation = mgrCommon.SaveFileBrowser(frmMain_ChooseLogFile, "txt", frmMain_Text, Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), frmMain_DefaultLogFileName & " " & Date.Now.ToString("dd-MMM-yyyy"))
+
+        If sLocation <> String.Empty Then
+            mgrCommon.SaveText(txtLog.Text, sLocation)
+        End If
+    End Sub
+
     Private Sub SetForm()
         'Set Form Name
         Me.Name = App_NameLong
@@ -966,6 +985,9 @@ Public Class frmMain
         gMonTools.Text = frmMain_gMonTools
         gMonToolsCleanMan.Text = frmMain_gMonToolsCleanMan
         gMonToolsCompact.Text = frmMain_gMonToolsCompact
+        gMonToolsLog.Text = frmMain_gMonToolsLog
+        gMonLogClear.Text = frmMain_gMonLogClear
+        gMonLogSave.Text = frmMain_gMonLogSave
         gMonHelp.Text = frmMain_gMonHelp
         gMonHelpWebSite.Text = frmMain_gMonHelpWebSite
         gMonHelpManual.Text = frmMain_gMonHelpManual
@@ -984,6 +1006,9 @@ Public Class frmMain
         gMonTrayTools.Text = frmMain_gMonTools
         gMonTrayToolsCleanMan.Text = frmMain_gMonToolsCleanMan
         gMonTrayToolsCompact.Text = frmMain_gMonToolsCompact
+        gMonTrayToolsLog.Text = frmMain_gMonToolsLog
+        gMonTrayLogClear.Text = frmMain_gMonLogClear
+        gMonTrayLogSave.Text = frmMain_gMonLogSave
         gMonTrayExit.Text = frmMain_gMonFileExit
 
         'Set Form Text
@@ -1294,6 +1319,14 @@ Public Class frmMain
         OpenCheckforUpdates()
     End Sub
 
+    Private Sub gMonLogClear_Click(sender As Object, e As EventArgs) Handles gMonLogClear.Click, gMonTrayLogClear.Click
+        ClearLog()
+    End Sub
+
+    Private Sub gMonLogSave_Click(sender As Object, e As EventArgs) Handles gMonLogSave.Click, gMonTrayLogSave.Click
+        SaveLog()
+    End Sub
+
     Private Sub gMonNotification_Click(sender As Object, e As EventArgs) Handles gMonNotification.Click, gMonTrayNotification.Click
         gMonNotification.Visible = False
         gMonTrayNotification.Visible = False

GBM/Managers/mgrCommon.vb

@@ -1,5 +1,6 @@
 Imports GBM.My.Resources
 Imports System.Net
+Imports System.IO
 
 Public Class mgrCommon
 
@@ -126,6 +127,21 @@ Public Class mgrCommon
         oProcess.Start()
     End Sub
 
+    'Save string as text file
+    Public Shared Sub SaveText(ByVal sText As String, ByVal sPath As String)
+        Dim oStream As StreamWriter
+
+        Try
+            If File.Exists(sPath) Then My.Computer.FileSystem.DeleteFile(sPath, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin)
+            oStream = New StreamWriter(sPath)
+            oStream.Write(sText)
+            oStream.Flush()
+            oStream.Close()
+        Catch ex As Exception
+            ShowMessage(mgrCommon_ErrorWritingTextFile, ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
     'Handles no extra parameters
     Public Shared Function ShowMessage(ByVal sMsg As String, ByVal oType As MsgBoxStyle) As MsgBoxResult
         Dim oResult As MsgBoxResult

GBM/Managers/mgrPath.vb

@@ -9,6 +9,7 @@ Public Class mgrPath
     Private Shared sDBLocation As String = sSettingsRoot & "\gbm.s3db"
     Private Shared sIncludeFile As String = sSettingsRoot & "\gbm_include.txt"
     Private Shared sExcludeFile As String = sSettingsRoot & "\gbm_exclude.txt"
+    Private Shared sLogFile As String = sSettingsRoot & "\gbm_log_" & Date.Now.ToString("dd-MM-yyyy-HH-mm-ss") & ".txt"
     Private Shared sRemoteDatabaseLocation As String
     Private Shared hshCustomVariables As Hashtable
     Private Shared oReleaseType As ProcessorArchitecture = AssemblyName.GetAssemblyName(Application.ExecutablePath()).ProcessorArchitecture
@@ -73,6 +74,12 @@ Public Class mgrPath
         End Get
     End Property
 
+    Shared ReadOnly Property LogFileLocation As String
+        Get
+            Return sLogFile
+        End Get
+    End Property
+
     Shared ReadOnly Property SettingsRoot As String
         Get
             Return sSettingsRoot

GBM/My Project/Resources.Designer.vb

@@ -1374,6 +1374,15 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Looks up a localized string similar to Game Backup Monitor Export.
+        '''</summary>
+        Friend ReadOnly Property frmGameManager_DefaultExportFileName() As String
+            Get
+                Return ResourceManager.GetString("frmGameManager_DefaultExportFileName", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Looks up a localized string similar to A game with this exact name and process already exists..
         '''</summary>
@@ -2085,6 +2094,15 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Looks up a localized string similar to Choose a location for the log file.
+        '''</summary>
+        Friend ReadOnly Property frmMain_ChooseLogFile() As String
+            Get
+                Return ResourceManager.GetString("frmMain_ChooseLogFile", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Looks up a localized string similar to Do you wish to backup data from [PARAM]?.
         '''</summary>
@@ -2094,6 +2112,15 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Looks up a localized string similar to Are you sure you want to clear the session log?.
+        '''</summary>
+        Friend ReadOnly Property frmMain_ConfirmLogClear() As String
+            Get
+                Return ResourceManager.GetString("frmMain_ConfirmLogClear", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Looks up a localized string similar to This tool removes orphaned backup information from the local manifest based on the current backup folder.  Data can become orphaned when backups are deleted by various computers that share the same backup folder on a cloud or network.[BR][BR]When alternating between different backup folders you should NOT use this tool.[BR][BR]Do you wish to proceed?.
         '''</summary>
@@ -2130,6 +2157,15 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Looks up a localized string similar to Game Backup Monitor Log.
+        '''</summary>
+        Friend ReadOnly Property frmMain_DefaultLogFileName() As String
+            Get
+                Return ResourceManager.GetString("frmMain_DefaultLogFileName", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Looks up a localized string similar to [PARAM] is a 64-bit game, GBM cannot detect the required information to save your backup..
         '''</summary>
@@ -2427,6 +2463,24 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Looks up a localized string similar to &amp;Clear.
+        '''</summary>
+        Friend ReadOnly Property frmMain_gMonLogClear() As String
+            Get
+                Return ResourceManager.GetString("frmMain_gMonLogClear", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized string similar to &amp;Save.
+        '''</summary>
+        Friend ReadOnly Property frmMain_gMonLogSave() As String
+            Get
+                Return ResourceManager.GetString("frmMain_gMonLogSave", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Looks up a localized string similar to &amp;Setup.
         '''</summary>
@@ -2517,6 +2571,15 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Looks up a localized string similar to &amp;Log.
+        '''</summary>
+        Friend ReadOnly Property frmMain_gMonToolsLog() As String
+            Get
+                Return ResourceManager.GetString("frmMain_gMonToolsLog", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Looks up a localized string similar to Show / Hide.
         '''</summary>
@@ -2571,6 +2634,15 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Looks up a localized string similar to The session log has been cleared due to size and auto-saved to [PARAM]..
+        '''</summary>
+        Friend ReadOnly Property frmMain_LogAutoSave() As String
+            Get
+                Return ResourceManager.GetString("frmMain_LogAutoSave", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Looks up a localized string similar to The local manifest is clean..
         '''</summary>
@@ -2769,6 +2841,15 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Looks up a localized string similar to Text.
+        '''</summary>
+        Friend ReadOnly Property frmMain_Text() As String
+            Get
+                Return ResourceManager.GetString("frmMain_Text", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Looks up a localized string similar to the unidentified game.
         '''</summary>
@@ -3781,6 +3862,15 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Looks up a localized string similar to An error has occured writing the text file.[BR][BR][PARAM].
+        '''</summary>
+        Friend ReadOnly Property mgrCommon_ErrorWritingTextFile() As String
+            Get
+                Return ResourceManager.GetString("mgrCommon_ErrorWritingTextFile", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Looks up a localized string similar to [PARAM] files (*.[PARAM])|*.[PARAM].
         '''</summary>

GBM/My Project/Resources.resx

@@ -1483,4 +1483,34 @@
   <data name="mgrXML_ErrorImportFailure" xml:space="preserve">
     <value>The XML file cannot be read, it may be an invalid format or corrupted.[BR][BR][PARAM]</value>
   </data>
+  <data name="frmGameManager_DefaultExportFileName" xml:space="preserve">
+    <value>Game Backup Monitor Export</value>
+  </data>
+  <data name="frmMain_ChooseLogFile" xml:space="preserve">
+    <value>Choose a location for the log file</value>
+  </data>
+  <data name="frmMain_ConfirmLogClear" xml:space="preserve">
+    <value>Are you sure you want to clear the session log?</value>
+  </data>
+  <data name="frmMain_DefaultLogFileName" xml:space="preserve">
+    <value>Game Backup Monitor Log</value>
+  </data>
+  <data name="frmMain_gMonLogClear" xml:space="preserve">
+    <value>&amp;Clear</value>
+  </data>
+  <data name="frmMain_gMonLogSave" xml:space="preserve">
+    <value>&amp;Save</value>
+  </data>
+  <data name="frmMain_gMonToolsLog" xml:space="preserve">
+    <value>&amp;Log</value>
+  </data>
+  <data name="frmMain_LogAutoSave" xml:space="preserve">
+    <value>The session log has been cleared due to size and auto-saved to [PARAM].</value>
+  </data>
+  <data name="frmMain_Text" xml:space="preserve">
+    <value>Text</value>
+  </data>
+  <data name="mgrCommon_ErrorWritingTextFile" xml:space="preserve">
+    <value>An error has occured writing the text file.[BR][BR][PARAM]</value>
+  </data>
 </root>