AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Filesystem: Add GetChecksum

Browse Source
This commit is contained in:
Jonathan Jenne 2021-02-04 16:54:57 +01:00
parent ed2c785580
commit 75b789ded8
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Modules.Filesystem/File.vb
View File

@ -1,4 +1,5 @@
Imports System.IO Imports System.IO
Imports System.Security.Cryptography
Imports System.Text.RegularExpressions Imports System.Text.RegularExpressions
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
@ -65,6 +66,14 @@ Public Class File
Return oCleanName Return oCleanName
End Function End Function
Public Function GetChecksum(FilePath As String) As String
Using oStream As New BufferedStream(IO.File.OpenRead(FilePath), 1200000)
Dim oSHA As New SHA256Managed()
Dim oChecksum() As Byte = oSHA.ComputeHash(oStream)
Return BitConverter.ToString(oChecksum).Replace("-", String.Empty)
End Using
End Function
''' <summary> ''' <summary>
''' Adds fileversions to given filename `Destination` if that file already exists. ''' Adds fileversions to given filename `Destination` if that file already exists.
''' </summary> ''' </summary>