Fix freeze when attempting to compress on certain unknown drive types (RAMdisks, SSHDs) due to DiskDetector not properly bubbling exceptions.

Author: Iridium-IO

CompactGUI/Models/ActiveFolder.vb

@@ -23,7 +23,12 @@ Public Class ActiveFolder : Inherits ObservableObject
     Public ReadOnly Property DiskType As DiskDetector.Models.HardwareType
         Get
             If FolderName Is Nothing Then Return Models.HardwareType.Unknown
-            Return DiskDetector.Detector.DetectDrive(FolderName.First, DiskDetector.Models.QueryType.RotationRate).HardwareType
+
+            Try
+                Return DiskDetector.Detector.DetectDrive(FolderName.First, DiskDetector.Models.QueryType.RotationRate).HardwareType
+            Catch ex As Exception
+                Return Models.HardwareType.Unknown
+            End Try
 
         End Get
     End Property

CompactGUI/ViewModels/MainViewModel.vb

@@ -196,7 +196,9 @@ Public Class MainViewModel : Inherits ObservableObject
         Dim exclist As String() = GetSkipList()
 
         CoreCompactor = New Core.Compactor(ActiveFolder.FolderName, Core.WOFConvertCompressionLevel(ActiveFolder.SelectedCompressionMode), exclist)
-        Dim res = Await CoreCompactor.RunCompactAsync(CProgress, If(ActiveFolder.DiskType = DiskDetector.Models.HardwareType.Hdd AndAlso SettingsHandler.AppSettings.LockHDDsToOneThread, 1, SettingsHandler.AppSettings.MaxCompressionThreads))
+        Dim HDDType As DiskDetector.Models.HardwareType = ActiveFolder.DiskType
+        Dim IsLockedToOneThread As Boolean = SettingsHandler.AppSettings.LockHDDsToOneThread
+        Dim res = Await CoreCompactor.RunCompactAsync(CProgress, If(HDDType = DiskDetector.Models.HardwareType.Hdd AndAlso IsLockedToOneThread, 1, SettingsHandler.AppSettings.MaxCompressionThreads))
 
         ActiveFolder.IsFreshlyCompressed = False
         If res Then ActiveFolder.IsFreshlyCompressed = True