diff --git a/AssemblyManager/AssemblyManagerVM.vb b/AssemblyManager/AssemblyManagerVM.vb index 8631de9..0de3b68 100644 --- a/AssemblyManager/AssemblyManagerVM.vb +++ b/AssemblyManager/AssemblyManagerVM.vb @@ -354,25 +354,27 @@ Public Class AssemblyManagerVM ' in caso sia fallita la ricera dei direttori o dei file If Not bBrandExists OrElse Not bFileExists Then - ' se la compoenente che sto caricando era corretta - ErrCompo.LoadByDefault = True + '' se la compoenente che sto caricando era corretta + 'ErrCompo.LoadByDefault = True ' se il brand non esiste, ma รจ selezionato If Not bBrandExists Then ErrCompo.MissingDirectory = True ErrCompo.MissingFile = True - ' aggiungo alla lista dei file che esistono quelli sbagliati, ed elimino quelli che non sono in quel momento selezioanti + ' aggiungo alla lista dei brand che esistono quelli sbagliati, ed elimino quelli che non sono in quel momento selezioanti RefreshListFile(m_CurrCompo.BrandListPart, ErrCompo.BrandListPart) - For Each BrandItem In ErrCompo.BrandListPart - ' ricerco l'elemento selezionato - If BrandItem = ErrCompo.SelBrandPart Then - ' se il direttorio non esiste ne viene creato uno fasullo, o recupera i file che appartngono al direttorio fasullo - ErrCompo.SelBrandPart = BrandItem - If ErrCompo.FileList.Count < 1 Then - ErrCompo.FileList.Add(ErrCompo.SelFile) + If Not ErrCompo.LoadByDefault Then + For Each BrandItem In ErrCompo.BrandListPart + ' ricerco l'elemento selezionato + If BrandItem = ErrCompo.SelBrandPart Then + ' se il direttorio non esiste ne viene creato uno fasullo, o recupera i file che appartngono al direttorio fasullo + ErrCompo.SelBrandPart = BrandItem + If ErrCompo.FileList.Count < 1 Then + ErrCompo.FileList.Add(ErrCompo.SelFile) + End If + ErrCompo.SelFile = ErrCompo.FileList(ErrCompo.FileList.Count - 1) End If - ErrCompo.SelFile = ErrCompo.FileList(ErrCompo.FileList.Count - 1) - End If - Next + Next + End If Else ErrCompo.MissingDirectory = False End If @@ -382,6 +384,8 @@ Public Class AssemblyManagerVM RefreshListFile(m_CurrCompo.FileList, ErrCompo.FileList) 'End If End If + ' se la compoenente che sto caricando era corretta + ErrCompo.LoadByDefault = True If Not DDFIsModified Then Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.IsModified = False End If