Aggiunti messagi in caso di errore lettura MTTable

2022-12-19 18:29:42 +01:00
parent 80c3634506
commit 201cf2ddf1
2 changed files with 9 additions and 2 deletions
@@ -1013,7 +1013,10 @@ Friend Module OptionModule
      If String.IsNullOrEmpty(IniFile.m_sDoorsDirPath) Then Return False
      m_MTableList.Clear()
      Dim sMTableDir As String = IniFile.m_sDoorsDirPath & "\MTables"
-      If Not Directory.Exists(sMTableDir) Then Return False
+      If Not Directory.Exists(sMTableDir) Then
+         EgtOutLog("Directory " & "'" & sMTableDir & "'" & " not found.")
+         Return False
+      End If
      Dim Items As String() = Directory.GetFiles(sMTableDir)
      ' recupero i file che hanno estemsione *.mtl
      For Each MTableFile As String In Items
@@ -1035,7 +1038,10 @@ Friend Module OptionModule
            End If
         End If
      Next
-      If m_MTableList.Count < 1 Then Return False
+      If m_MTableList.Count < 1 Then
+         EgtOutLog("Not valid file in directory " & "'" & sMTableDir & "'" & ".")
+         Return False
+      End If
      ' leggo il nome della MTable attiva
      Dim sSelectedMTable As String = String.Empty
      Dim nbSelected As Boolean = False