Dim Datei As New FileInfo("Datei.txt")
        Debug.WriteLine(Datei.GetHashCode())
 
        Datei = New FileInfo("Datei.txt")
        Debug.WriteLine(Datei.GetHashCode())

 
        Dim fs As New FileStream("C:\test.txt", FileMode.Open, FileAccess.Read)
        Dim md5 As New MD5CryptoServiceProvider
        Dim cs As New CryptoStream(fs, md5, CryptoStreamMode.Read)
 
        While cs.ReadByte <> -1
        End While
 
        cs.Close()
        Dim hashval() As Byte = md5.Hash
        md5.Clear()
 
        Dim b64val As String = System.Convert.ToBase64String(hashval)
        Debug.WriteLine(b64val)
 
        Dim hexval As String
        For Each b As Byte In hashval
            hexval += b.ToString("x2")
        Next
        Debug.WriteLine(hexval)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist