fix project x nuovo datalayer

EgtBEAMWALL.ViewerOptimizer/OpenProjectFileDialog/OpenProjectFileDialogVM.vb

@@ -144,22 +144,20 @@ Public Class OpenProjectFileDialogVM
    '   Return Not IsNothing(SelProject)
    'End Function
    Friend Function VerifySelected() As Boolean
+      Dim AllFilesInDir As IEnumerable(Of String)
       If SelProject.nProjectType = Core.ConstBeam.ProjectType.PROJ Then
          ' verifico se esiste ProdId
 
-
-         For Each File In SelProject.sProjDirPath
-            If Path.GetExtension(File).ToLower() = ".nge" Then
-               Return True
-            End If
-         Next
+         AllFilesInDir = IO.Directory.EnumerateFiles(SelProject.sProjDirPath)
       ElseIf SelProject.nProjectType = Core.ConstBeam.ProjectType.PROD Then
-         For Each File In SelProject.sProdDirPath
-            If Path.GetExtension(File).ToLower() = ".nge" Then
-               Return True
-            End If
-         Next
+         AllFilesInDir = IO.Directory.EnumerateFiles(SelProject.sProdDirPath)
       End If
+      For Each File In AllFilesInDir
+         If Path.GetExtension(File).ToLower() = ".nge" Then
+            Return True
+         End If
+      Next
+
       Return False
    End Function