From 91f1b10fbda65f43aa6dfd12412ee8ab70993b73 Mon Sep 17 00:00:00 2001 From: Derrick Agorhom <76208189+derekagorhom@users.noreply.github.com> Date: Fri, 27 Sep 2024 12:08:26 +0200 Subject: [PATCH 1/3] Added Version Number --- instat/frmMain.Designer.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/instat/frmMain.Designer.vb b/instat/frmMain.Designer.vb index b6e4800811..890ed9c491 100644 --- a/instat/frmMain.Designer.vb +++ b/instat/frmMain.Designer.vb @@ -5262,7 +5262,9 @@ Partial Class frmMain Me.IsMdiContainer = True Me.MainMenuStrip = Me.mnuBar Me.Name = "frmMain" - Me.Text = "R-Instat .." + Me.Text = "R-Instat " + My.Application.Info.Version.Major.ToString + "." + + My.Application.Info.Version.Minor.ToString + "." + + My.Application.Info.Version.Build.ToString Me.WindowState = System.Windows.Forms.FormWindowState.Maximized Me.stsStrip.ResumeLayout(False) Me.stsStrip.PerformLayout() From 23562ade6beb352b428869d1c742d55065fbae20 Mon Sep 17 00:00:00 2001 From: KWAMBAI VITALIS Date: Tue, 1 Oct 2024 07:03:36 +0300 Subject: [PATCH 2/3] changes --- instat/frmMain.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/instat/frmMain.vb b/instat/frmMain.vb index aab37fc42f..2bcd6e220f 100644 --- a/instat/frmMain.vb +++ b/instat/frmMain.vb @@ -511,11 +511,11 @@ Public Class frmMain 'get the data file path if selected by the user strDataFilePath = dlgRestoreBackup.GetDataFilePath() End If - End If - Using writer As StreamWriter = New StreamWriter(strMarkerFilePath, False) - writer.WriteLine("Running") - End Using + Using writer As StreamWriter = New StreamWriter(strMarkerFilePath, False) + writer.WriteLine("Running") + End Using + End If '--------------------------------------- From ee9aacf54c05ae1f61b722f51c34208694e4987a Mon Sep 17 00:00:00 2001 From: Ntalumeso Date: Tue, 1 Oct 2024 08:37:28 +0300 Subject: [PATCH 3/3] minor code improvement --- instat/frmMain.vb | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/instat/frmMain.vb b/instat/frmMain.vb index 2bcd6e220f..29e33e8776 100644 --- a/instat/frmMain.vb +++ b/instat/frmMain.vb @@ -511,12 +511,16 @@ Public Class frmMain 'get the data file path if selected by the user strDataFilePath = dlgRestoreBackup.GetDataFilePath() End If + End If - Using writer As StreamWriter = New StreamWriter(strMarkerFilePath, False) - writer.WriteLine("Running") - End Using + If Not Directory.Exists(strAutoSaveLogFolderPath) Then + Directory.CreateDirectory(strAutoSaveLogFolderPath) End If + Using writer As StreamWriter = New StreamWriter(strMarkerFilePath, False) + writer.WriteLine("Running") + End Using + '---------------------------------------