Modifiche

2021-04-03 18:51:58 +02:00
parent 6483a2812d
commit 7e34c83653
32 changed files with 162 additions and 126 deletions
@@ -29,11 +29,7 @@ Public Class ProjectFileVM
      Get
         Dim sPath As String = String.Empty
         If IsNothing(m_ProjectFileM.nProjId) OrElse m_ProjectFileM.nProjId = 0 Then Return String.Empty
-         sPath = refMainWindowVM.MainWindowM.sProjsDir & "\" & nProjId.ToString("0000") & "\" & nProjId.ToString("0000") & FILENAMESEPARATOR
-         If Not IsNothing(m_ProjectFileM.nProdId) AndAlso m_ProjectFileM.nProdId > 0 Then
-            sPath &= nProdId.ToString("0000")
-         End If
-         sPath &= FILENAMESEPARATOR '& BTLFileName & ".nge"
+         sPath = refMainWindowVM.MainWindowM.sProjsDir & "\" & nProjId.ToString("0000") & "\" & nProjId.ToString("0000") & ".nge"
         Return sPath
      End Get
   End Property