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/OptionModule.vb

@@ -175,6 +175,17 @@ Friend Module OptionModule
          End If
       End If
 
+      Dim sMachinDir As String = String.Empty
+      If GetMainPrivateProfileString(S_DOORS, K_MACHINDIR, "", sMachinDir) <> 0 Then
+         If Not Directory.Exists(sMachinDir) Then
+            ' manntego l'accesso a quello di default
+            EgtOutLog("Warning : " & sMachinDir & " does not exist")
+            ' controllo che il direttorio che era stato passato di default esista
+         Else
+            IniFile.m_MachinProject = sMachinDir
+         End If
+      End If
+
       ' leggo il tipo di Bevel selezionato
       Dim BevelUp As Visibility
       DefaultGetPrivateProfilesBevel(S_EDGE, K_BEVELU_INI, BevelUp)
@@ -207,13 +218,11 @@ Friend Module OptionModule
       Dim WeightVisibility As Visibility = Visibility.Collapsed
       DefaultGetPrivateProfilesVisibility(S_SIZE, K_WEIGHTISCHECKED_INI, WeightVisibility)
       Part.IsCheckedWeight = WeightVisibility
-
       ' carico il valori associati al tipo di spigolo
       Dim EdgeTypeList As New ObservableCollection(Of String)
       DefaultGetPrivateProfileObservableCollection(S_EDGE, K_EDGETYPE_LIST_INI, EdgeTypeList)
       m_StaticEdgeTypeList = EdgeTypeList
       OptionsVM.CreateEdgeTypeList()
-
       ' carico i valori associati agli spigoli
       Dim LockEdgeType As String = String.Empty
       DefaultGetPrivateProfileString(S_EDGE, K_LOCKEDGE, "", LockEdgeType)