OmagCUT :

- Aggiunta funzionalità salva con nome.
- Modifica per aprire in automatico la cartella dei progetti salvati quando si vuole caricare un progetto.

MainWindow.xaml.vb

@@ -42,6 +42,7 @@ Class MainWindow
    Private m_sResourcesDir As String = String.Empty
    Private m_sTempDir As String = String.Empty
    Private m_sSaveDir As String = String.Empty
+   Private m_sSaveNameDir As String = String.Empty
    Private m_sCncDir As String = String.Empty
    Private m_sMachinesRoot As String = String.Empty
    Private m_sIniFile As String = String.Empty
@@ -97,6 +98,10 @@ Class MainWindow
       Return m_sSaveDir
    End Function
 
+   Public Function GetSaveNameDir() As String
+      Return m_sSaveNameDir
+   End Function
+
    Public Function GetCamAutoDir() As String
       Return m_sDataRoot & "\" & CAMAUTO_DIR
    End Function
@@ -135,10 +140,14 @@ Class MainWindow
       m_sCncDir = m_sDataRoot & "\" & CNC_DIR
       ' Impostazione path Ini file
       m_sIniFile = m_sConfigDir & "\" & INI_FILE_NAME
-      ' Impostazione direttorio di salvataggio
+      ' Impostazione direttorio di salvataggio automatico
       If GetPrivateProfileString(S_GENERAL, K_SAVEDIR, "", m_sSaveDir, m_sIniFile) = 0 Then
          m_sSaveDir = m_sDataRoot & "\" & SAVE_DFL_DIR
       End If
+      ' Impostazione direttorio di salvataggio dei progetti con nome
+      If GetPrivateProfileString(S_GENERAL, K_SAVENAMEDIR, "", m_sSaveNameDir, m_sIniFile) = 0 Then
+         m_sSaveNameDir = m_sDataRoot & "\" & SAVE_DFL_NAMEDIR
+      End If
       ' Impostazione direttorio per le macchine
       If GetPrivateProfileString(S_MACH, K_MACHINESDIR, "", m_sMachinesRoot, m_sIniFile) = 0 Then
          m_sMachinesRoot = m_sDataRoot & "\" & MACHINES_DFL_DIR