主题：[求助]如何获取文件的MD5校验码

Dim FilePath As String ="C:\Users\foxtable1\Desktop\订货管理.foxdb"
Try
	Dim get_file As New System.IO.FileStream(FilePath, System.IO.FileMode.Open, System.IO.FileAccess.Read, System.IO.FileShare.Read)
	Dim get_md5 As New System.Security.Cryptography.MD5CryptoServiceProvider()
	Dim hash_byte As Byte() = get_md5.ComputeHash(get_file)
	Dim resule As String = System.BitConverter.ToString(hash_byte)
	resule = resule.Replace("-", "")
	output.show( resule)
Catch e As Exception
	output.show( e.ToString())
End Try