Speedup Core.Compactor.BuildWorkingFilesList() by reusing FileInfo in…

…stances from Analyser.

- Remove debug code from last commit in MainViewModel

CompactGUI.Core/Analyser.vb

@@ -67,7 +67,7 @@ Public Class Analyser
             End If
             Dim cLevel As CompressionAlgorithm = If(compSize = unCompSize, CompressionAlgorithm.NO_COMPRESSION, DetectCompression(fInfo))
 
-            Return New AnalysedFileDetails With {.FileName = file, .CompressedSize = compSize, .UncompressedSize = unCompSize, .CompressionMode = cLevel}
+            Return New AnalysedFileDetails With {.FileName = file, .CompressedSize = compSize, .UncompressedSize = unCompSize, .CompressionMode = cLevel, .FileInfo = fInfo}
         Catch ex As IOException
             Debug.WriteLine($"Error analysing file {file}: {ex.Message}")
             Return Nothing

CompactGUI.Core/Compactor.vb

@@ -113,7 +113,7 @@ Public Class Compactor : Implements IDisposable
         Dim ret = Await ax.AnalyseFolder(Nothing)
 
         Parallel.ForEach(ax.FileCompressionDetailsList, Sub(fl)
-                                                            Dim ft = New FileInfo(fl.FileName)
+                                                            Dim ft = fl.FileInfo
                                                             If Not _excludedFileTypes.Contains(ft.Extension) AndAlso ft.Length > clusterSize AndAlso fl.CompressionMode <> _WOFCompressionLevel Then _filesList.Add(fl.FileName)
                                                         End Sub)
 

CompactGUI.Core/SharedObjects.vb

@@ -4,7 +4,7 @@
     Public UncompressedSize As Long
     Public CompressedSize As Long
     Public CompressionMode As CompressionAlgorithm
-
+    Public FileInfo As IO.FileInfo
 End Class
 
 

CompactGUI/ViewModels/MainViewModel.vb

@@ -106,11 +106,6 @@ Public Class MainViewModel : Inherits ObservableObject
     End Sub
 
     Private Async Function UpdateWatcherAndState(containsCompressedFiles As Boolean, Analyser As Core.Analyser) As Task
-        ActiveFolder.PoorlyCompressedFiles = Await Analyser.GetPoorlyCompressedExtensions()
-
-        For Each ix In ActiveFolder.PoorlyCompressedFiles
-            Debug.WriteLine("   " & ix.extension & ": " & ix.totalFiles)
-        Next
 
         If containsCompressedFiles OrElse ActiveFolder.IsFreshlyCompressed Then
             State = "FolderCompressedResults"