Merge pull request #379 from yyjdelete/fix_compSize

Fall back to unCompSize if GetFileSizeOnDisk failed

Author: Iridium-IO

CompactGUI.Core/Analyser.vb

@@ -39,6 +39,10 @@ Public Class Analyser
         Dim fInfo As New FileInfo(file)
         Dim unCompSize = fInfo.Length
         Dim compSize = GetFileSizeOnDisk(file)
+        If compSize < 0 Then
+            'GetFileSizeOnDisk failed, fall back to unCompSize
+            compSize = unCompSize
+        End If
         Dim cLevel As CompressionAlgorithm = If(compSize = unCompSize, CompressionAlgorithm.NO_COMPRESSION, DetectCompression(fInfo))
 
         'Sets the backing private fields directly because Interlocked doesn't play nice with properties!

CompactGUI.Core/SharedMethods.vb

@@ -20,6 +20,14 @@ Public Module SharedMethods
     Function GetFileSizeOnDisk(file As String) As Long
         Dim hosize As UInteger
         Dim losize As UInteger = GetCompressedFileSizeW(file, hosize)
+        'INVALID_FILE_SIZE (0xFFFFFFFF)
+        If losize = 4294967295 Then
+            Dim errCode As Integer
+            errCode = Marshal.GetLastPInvokeError()
+            If errCode <> 0 Then
+                Return -1
+            End If
+        End If
         Return CLng(hosize) << 32 Or losize
     End Function
 
@@ -72,7 +80,7 @@ Public Module SharedMethods
 
 #Region "DLL Imports"
 
-    <DllImport("kernel32.dll")>
+    <DllImport("kernel32.dll", SetLastError:=True)>
     Private Function GetCompressedFileSizeW(
     <[In](), MarshalAs(UnmanagedType.LPWStr)> lpFileName As String,
     <Out(), MarshalAs(UnmanagedType.U4)> ByRef lpFileSizeHigh As UInteger) _