EgtDOORCreator 1.8f5 :

- se il direttorio BaseDir nel file Config.ini è sbagliato il programma avvisa con un messaggio a video e chiude il programma;
- se i direttori ProjectDirectory e TempateDirecory nel file Config.ini non esistono allora verranno creati di default i direttori MyProjects e Template nel direttorio C:\EgtData\EgtDOORCreator;
- selezionando la porta corrente dalla lista delle porte nel DoorManager non viene chiesto di salvare la porta corrente.

OptionsWindow/OptionModule.vb

@@ -1,5 +1,6 @@
 Imports System.Collections.ObjectModel
 Imports EgtUILib
+Imports System.IO
 
 Friend Module OptionModule
 
@@ -96,12 +97,34 @@ Friend Module OptionModule
       ' leggo il direttorio di salvataggio dei progetti
       Dim sMyProjectDir As String = String.Empty
       If GetPrivateProfileString(S_DOORS, K_MYPROJECTDIR, "", sMyProjectDir) <> 0 Then
-         IniFile.m_MyProjectDir = sMyProjectDir
+         ' se non esiste il direttorio
+         If Not Directory.Exists(sMyProjectDir) Then
+            ' manntego l'accesso a quello di default
+            EgtOutLog("Warning : " & sMyProjectDir & " does not exist")
+            ' controllo che il direttorio che era stato passato di default esista
+            If Not Directory.Exists(IniFile.m_MyProjectDir) Then
+               ' creo il direttorio
+               Directory.CreateDirectory(IniFile.m_MyProjectDir)
+            End If
+         Else
+            IniFile.m_MyProjectDir = sMyProjectDir
+         End If
       End If
 
       Dim sTemplateDir As String = String.Empty
       If GetPrivateProfileString(S_DOORS, K_TEMPLATEDIR, "", sTemplateDir) <> 0 Then
-         IniFile.m_TemplateDir = sTemplateDir
+         ' se non esiste il direttorio
+         If Not Directory.Exists(sTemplateDir) Then
+            ' manntego l'accesso a quello di default
+            EgtOutLog("Warning : " & sTemplateDir & " does not exist")
+            ' controllo che il direttorio che era stato passato di default esista
+            If Not Directory.Exists(IniFile.m_TemplateDir) Then
+               ' creo il direttorio
+               Directory.CreateDirectory(IniFile.m_TemplateDir)
+            End If
+         Else
+            IniFile.m_TemplateDir = sTemplateDir
+         End If
       End If
 
       ' leggo il tipo di Bevel selezionato