From 00bf8a90ec435388e7ff2e2321860d49d208fc8b Mon Sep 17 00:00:00 2001
From: Dario Sassi <dario.sassi@egalware.com>
Date: Thu, 16 Jul 2026 09:55:14 +0200
Subject: [PATCH] EgtCAM5 : - corretto Update di BeamNT.

---
 OptionsWindow/OptionWindowVM.vb | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/OptionsWindow/OptionWindowVM.vb b/OptionsWindow/OptionWindowVM.vb
index a1d81d7..6152db3 100644
--- a/OptionsWindow/OptionWindowVM.vb
+++ b/OptionsWindow/OptionWindowVM.vb
@@ -1810,15 +1810,15 @@ Public Class OptionWindowVM
          End If
       End If
       ' Faccio una copia di backup del Beam corrente
-      Dim sBackupDir As String = IniFile.m_sBeamDirPath & ".old"
+      Dim sBackupDir As String = IniFile.m_sBeamNTDirPath & ".old"
       If My.Computer.FileSystem.DirectoryExists(sBackupDir) Then
          My.Computer.FileSystem.DeleteDirectory(sBackupDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
       End If
       Try
-         My.Computer.FileSystem.MoveDirectory(IniFile.m_sBeamDirPath, sBackupDir, True)
+         My.Computer.FileSystem.MoveDirectory(IniFile.m_sBeamNTDirPath, sBackupDir, True)
       Catch ex As Exception
          ' Ripristino lo stato originale ed esco
-         My.Computer.FileSystem.MoveDirectory(sBackupDir, IniFile.m_sBeamDirPath, True)
+         My.Computer.FileSystem.MoveDirectory(sBackupDir, IniFile.m_sBeamNTDirPath, True)
          ' L'aggiornamento del modulo "{0}" non è riuscito. - Errore
          Dim sOut As String = String.Format(EgtMsg(6559), "BeamNT")
          EgtOutLog(sOut)
@@ -1828,7 +1828,7 @@ Public Class OptionWindowVM
          Return
       End Try
       ' Installo il Beam
-      My.Computer.FileSystem.MoveDirectory(sTempDir, IniFile.m_sBeamDirPath, True)
+      My.Computer.FileSystem.MoveDirectory(sTempDir, IniFile.m_sBeamNTDirPath, True)
       ' Il modulo "{0}" è stata aggiornato con successo. - Info
       Dim sOk As String = String.Format(EgtMsg(6560), "BeamNT")
       EgtOutLog(sOk)