Fixed "Last Compressed" not being updated in the watchlist when compressing. Closes #522

Author: Iridium-IO

CompactGUI.Watcher/Watcher.vb

@@ -126,11 +126,14 @@ Public Class Watcher : Inherits ObservableObject
             existingItem.LastCheckedDate = DateTime.Now
             existingItem.LastCheckedSize = analyser.CompressedBytes
             existingItem.LastUncompressedSize = analyser.UncompressedBytes
-            existingItem.LastSystemModifiedDate = existingFolderMonitor.LastChangedDate
+            existingItem.LastSystemModifiedDate = DateTime.Now
             If analyser.FileCompressionDetailsList.Count <> 0 Then
                 existingItem.CompressionLevel = analyser.FileCompressionDetailsList.Select(Function(f) f.CompressionMode).Max
             End If
 
+            If isFreshlyCompressed Then
+                existingItem.LastCompressedDate = DateTime.Now
+            End If
 
             If isFreshlyCompressed OrElse existingItem.CompressionLevel = WOFCompressionAlgorithm.NO_COMPRESSION Then
                 existingItem.LastCompressedSize = analyser.CompressedBytes
@@ -169,7 +172,6 @@ Public Class Watcher : Inherits ObservableObject
         WatchedFolders.Remove(item)
         WriteToFile()
 
-
     End Sub
 
 

CompactGUI/ViewModels/FolderViewModel.vb

@@ -95,7 +95,7 @@ Public Class FolderViewModel : Inherits ObservableObject
 
     Public Async Function UncompressFolderAsync() As Task
         Await Folder.UncompressFolder()
-        Application.GetService(Of Watcher.Watcher).UpdateWatched(Folder.FolderName, Folder.Analyser, True)
+        Application.GetService(Of Watcher.Watcher).UpdateWatched(Folder.FolderName, Folder.Analyser, False)
 
     End Function