EgtDOORCreator 2.7c2 :

- sistemazioni ad AboutBox
- correzioni lettura Mtables
- sistemazione grafica Launcher.

OptionsWindow/OptionModule.vb

@@ -1057,13 +1057,13 @@ Friend Module OptionModule
          Return False
       End If
       Dim Items As String() = Directory.GetFiles(sMTableDir)
-      ' recupero i file che hanno estemsione *.mtl
+      ' recupero i file che hanno estemsione *.mtl e non sono esclusi
+      Dim ExcludeList As List(Of String) = GetExludeList()
       For Each MTableFile As String In Items
          If MTableFile.EndsWith(".mtl") Then
             Dim sName As String = Path.GetFileNameWithoutExtension(MTableFile).ToLower
             Dim sPath As String = MTableFile
             Dim bIsValid As Boolean = True
-            Dim ExcludeList As List(Of String) = GetExludeList()
             For Each ExcludedItem As String In ExcludeList
                If sName.ToLower.Contains(ExcludedItem) Then
                   bIsValid = False
@@ -1083,17 +1083,17 @@ Friend Module OptionModule
       End If
       ' leggo il nome della MTable attiva
       Dim sSelectedMTable As String = String.Empty
-      Dim nbSelected As Boolean = False
+      Dim bSelected As Boolean = False
       If GetMainPrivateProfileString(S_DOORS, K_MTABLE, "", sSelectedMTable) <> 0 Then
          For Each ItemFile As MTable In m_MTableList
             If ItemFile.FilePath.ToLower = sSelectedMTable.Trim.ToLower Then
                m_SelectedMTable = ItemFile
-               nbSelected = True
+               bSelected = True
                Exit For
             End If
          Next
       End If
-      If Not nbSelected Then m_SelectedMTable = m_MTableList(0)
+      If Not bSelected Then m_SelectedMTable = m_MTableList(0)
       Return True
    End Function
 
@@ -1101,10 +1101,12 @@ Friend Module OptionModule
       Dim LocalList As New List(Of String)
       Dim sVal As String = String.Empty
       GetMainPrivateProfileString(S_DOORS, "Exclude", "", sVal)
-      Dim sItems As String() = sVal.Split(","c)
-      For Each Item As String In sItems
-         LocalList.Add(Item.Trim)
-      Next
+      If Not String.IsNullOrWhiteSpace( sVal) Then
+         Dim sItems As String() = sVal.Split(","c)
+         For Each Item As String In sItems
+            LocalList.Add(Item.Trim)
+         Next
+      End If
       Return LocalList
    End Function