Verifico esistenza della configurazione

2025-07-15 09:17:48 +02:00
parent 78b4f3e2b7
commit 2ce6689a96
1 changed files with 9 additions and 0 deletions
@@ -361,6 +361,15 @@ Public Class FrmMain
      Debug.Assert(DirToReadCfg <> "")
      NomeFileCfg = DirToReadCfg & "\CameraMng.cfg"

+      If Not File.Exists(NomeFileCfg) Then
+         Dim sTextMsg As String = String.Format("Nella cartella '{0}' non è stata trovata la configurazione '{1}'.", sDataRoot, NomeFileCfg)
+         MessageBox.Show(sTextMsg, "Avvertenza", MessageBoxButtons.OK, MessageBoxIcon.Warning)
+         If ModalitaNascosta Then
+            Me.Close()
+         End If
+         Return
+      End If
+
      ' default sovrascritti dalla letture del file cfg
      LensCalibType = 0
      SaveDir = "c:\CameraMng\Data\"