Filesystem: Version 1.0.5

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)
+        Try
-            Using oStream As New BufferedStream(oFileStream, 1200000)
+            Using oFileStream = IO.File.OpenRead(FilePath)
-                Dim oChecksum() As Byte = SHA256.Create.ComputeHash(oStream)
+                Using oStream As New BufferedStream(oFileStream, 1200000)
-                Return BitConverter.ToString(oChecksum).Replace("-", String.Empty)
+                    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>

Modules.Filesystem/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.0.4.0")>
+<Assembly: AssemblyVersion("1.0.5.0")>
-<Assembly: AssemblyFileVersion("1.0.4.0")>
+<Assembly: AssemblyFileVersion("1.0.5.0")>