-pulizia codice

EgtBEAMWALL.ViewerOptimizer/NewOpenProjectFileDialog/NewOpenProjectFileDialogVM.vb

@@ -1,9 +1,7 @@
-Imports System.Collections.ObjectModel
-Imports System.IO
+Imports System.IO
 Imports EgtBEAMWALL.Core
 Imports EgtBEAMWALL.Core.ConstBeam
 Imports EgtUILib
-Imports EgtWPFLib5
 
 Public Class NewOpenProjectFileDialogVM
    Inherits Core.NewOpenProjectFileDialogVM
@@ -107,10 +105,6 @@ Public Class NewOpenProjectFileDialogVM
                If Project.sMachine = ProjectManagerVM.CurrProj.sMachine AndAlso
                   Project.nType = ProjectManagerVM.CurrProj.nType Then
                   If File.Exists(sPath) Then
-                     '                     m_ProjectList.Add(New ProdItem(New ProdFileVM(Project)))
-                     'Else
-                     '   DbControllers.m_ProdController.DeleteProd(Project.nProdId)
-                     '   EgtOutLog("Found project on Db without the folder and erased it! Prod number " & Project.nProdId.ToString("0000"))
                   End If
                End If
             Next
@@ -127,9 +121,6 @@ Public Class NewOpenProjectFileDialogVM
                      ProjList.Add(New ProjFileVM(ProjFileM))
                   Next
                   m_ProjectList.Add(New ProdItem(New ProdFileVM(Project), ProjList))
-                  'Else
-                  '   DbControllers.m_ProdController.DeleteProd(Project.nProdId)
-                  '   EgtOutLog("Found project on Db without the folder and erased it! Prod number " & Project.nProdId.ToString("0000"))
                End If
             Next
          End If
@@ -179,21 +170,9 @@ Public Class NewOpenProjectFileDialogVM
       ' cancello progetto
       If Not IsNothing(SelProject.ProdFileVM) Then
          DbControllers.m_ProdController.DeleteProd(SelProject.ProdFileVM.nProdId, True)
-         '' cancello cartella del Prod
-         'Try
-         '   Directory.Delete(SelProject.ProdFileVM.sProdDirPath, True)
-         'Catch ex As Exception
-         '   EgtOutLog("Error in deleting directory " & SelProject.ProdFileVM.sProdDirPath)
-         'End Try
       End If
       For Each Project In SelProject.ProjFileList
          DbControllers.m_ProjController.DeleteProj(Project.nProjId, True)
-         '' cancello cartella del Proj
-         'Try
-         '   Directory.Delete(Project.sProjDirPath, True)
-         'Catch ex As Exception
-         '   EgtOutLog("Error in deleting directory " & Project.sProjDirPath)
-         'End Try
       Next
       ' aggiorno lista progetti
       RefreshProjectList()