chore: 漏了一个
This commit is contained in:
@@ -1075,7 +1075,7 @@ Public Module ModBase
|
|||||||
Re:
|
Re:
|
||||||
Try
|
Try
|
||||||
'获取 MD5
|
'获取 MD5
|
||||||
Dim File As New FileStream(FilePath, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
|
Using File As New FileStream(FilePath, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
|
||||||
Using h = MD5Cng.Create()
|
Using h = MD5Cng.Create()
|
||||||
Dim Retval As Byte() = h.ComputeHash(File)
|
Dim Retval As Byte() = h.ComputeHash(File)
|
||||||
Dim Result As New StringBuilder(Retval.Length * 2)
|
Dim Result As New StringBuilder(Retval.Length * 2)
|
||||||
@@ -1085,6 +1085,7 @@ Re:
|
|||||||
|
|
||||||
Return Result.ToString
|
Return Result.ToString
|
||||||
End Using
|
End Using
|
||||||
|
End Using
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
If Retry OrElse TypeOf ex Is FileNotFoundException Then
|
If Retry OrElse TypeOf ex Is FileNotFoundException Then
|
||||||
Log(ex, "获取文件 MD5 失败:" & FilePath)
|
Log(ex, "获取文件 MD5 失败:" & FilePath)
|
||||||
|
|||||||
Reference in New Issue
Block a user