EgtDOORCreator 1.8l3 :

- copia dei file di un progetto nel direttorio della macchina (configurabili nel file da OptionPage);
- salvataggio delle modifiche dei parametri delle componenti già esistenti (RunAs=0);

OptionsWindow/OptionsViewModel.vb

@@ -387,13 +387,25 @@ Public Class OptionsVM
       Set(value As String)
          If value IsNot IniFile.m_MyProjectDir Then
             IniFile.m_MyProjectDir = value
-            ' iniziliazzo il valore dell'unità di misura 
             WriteMainPrivateProfileString(S_DOORS, K_MYPROJECTDIR, value)
          End If
          NotifyPropertyChanged("MyProjectDir")
       End Set
    End Property
 
+   Public Property MachinDir As String
+      Get
+         Return IniFile.m_MachinProject
+      End Get
+      Set(value As String)
+         If value IsNot IniFile.m_MachinProject Then
+            IniFile.m_MachinProject = value
+            WriteMainPrivateProfileString(S_DOORS, K_MACHINDIR, value)
+         End If
+         NotifyPropertyChanged("MachinDir")
+      End Set
+   End Property
+
    '----------------------------------------------------------------------------------------------------------------------------------------------------
 
    Public ReadOnly Property EnableAssembly As Boolean
@@ -738,6 +750,12 @@ Public Class OptionsVM
       End Get
    End Property
 
+   Public ReadOnly Property MachinDirectoryMsg As String
+      Get
+         Return "Directory Machine "
+      End Get
+   End Property
+
    Public ReadOnly Property General As String
       Get
          Return EgtMsg(MSG_MAINWINDOW + 201)
@@ -762,6 +780,13 @@ Public Class OptionsVM
       End Get
    End Property
 
+   Public ReadOnly Property CurrentMachinDirectiry As String
+      Get
+         Return "Machine"
+      End Get
+   End Property
+
+
    Public ReadOnly Property DoorMsg As String
       Get
          Return "Door"
@@ -1144,15 +1169,29 @@ Public Class OptionsVM
       End Get
    End Property
 
-   Public Sub Browse()
-      Dim FolderBrowserDialog As New System.Windows.Forms.FolderBrowserDialog
-      FolderBrowserDialog.SelectedPath = IniFile.m_MyProjectDir
-      ' mostriamo la finestra di dialogo aperta fino alla directory MyProjects
-      If FolderBrowserDialog.ShowDialog <> Forms.DialogResult.OK Then
-         ' se la risposta è diversa da OK esce
-         Return
-      End If
-      MyProjectDir = FolderBrowserDialog.SelectedPath
+   Public Sub Browse(param As Object)
+      Dim SelectButton As String = (CStr(param))
+      Select Case SelectButton
+         Case "MyProject"
+            Dim FolderBrowserDialog As New System.Windows.Forms.FolderBrowserDialog
+            FolderBrowserDialog.SelectedPath = IniFile.m_MyProjectDir
+            ' mostriamo la finestra di dialogo aperta fino alla directory MyProjects
+            If FolderBrowserDialog.ShowDialog <> Forms.DialogResult.OK Then
+               ' se la risposta è diversa da OK esce
+               Return
+            End If
+            MyProjectDir = FolderBrowserDialog.SelectedPath
+         Case "MachinDir"
+            Dim FolderBrowserDialog As New System.Windows.Forms.FolderBrowserDialog
+            FolderBrowserDialog.SelectedPath = IniFile.m_MachinProject
+            ' mostriamo la finestra di dialogo aperta fino alla directory MyProjects
+            If FolderBrowserDialog.ShowDialog <> Forms.DialogResult.OK Then
+               ' se la risposta è diversa da OK esce
+               Return
+            End If
+            MachinDir = FolderBrowserDialog.SelectedPath
+      End Select
+ 
    End Sub
 
    Public ReadOnly Property OptionGuideCmd As ICommand