From 828063447efce7c86d2f0cc0db58399fb6fd7879 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Mon, 5 Jul 2021 13:29:48 +0200
Subject: [PATCH] Filesystem: Catch exceptions while generating checksums

---
 Modules.Filesystem/File.vb | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/Modules.Filesystem/File.vb b/Modules.Filesystem/File.vb
index d9e8b283..4c84e12b 100644
--- a/Modules.Filesystem/File.vb
+++ b/Modules.Filesystem/File.vb
@@ -73,12 +73,19 @@ Public Class File
     End Function
 
     Public Function GetChecksum(FilePath As String) As String
-        Using oFileStream = IO.File.OpenRead(FilePath)
-            Using oStream As New BufferedStream(oFileStream, 1200000)
-                Dim oChecksum() As Byte = SHA256.Create.ComputeHash(oStream)
-                Return BitConverter.ToString(oChecksum).Replace("-", String.Empty)
+        Try
+            Using oFileStream = IO.File.OpenRead(FilePath)
+                Using oStream As New BufferedStream(oFileStream, 1200000)
+                    Dim oChecksum() As Byte = SHA256.Create.ComputeHash(oStream)
+                    Return BitConverter.
+                        ToString(oChecksum).
+                        Replace("-", String.Empty)
+                End Using
             End Using
-        End Using
+        Catch ex As Exception
+            _Logger.Error(ex)
+            Return Nothing
+        End Try
     End Function
 
     ''' <summary>