[andrey_cool]

How can i check a file's md5 if it's equal to one in a listbox? Like this

If file.MD5 = listbox1.Items.Contains(File.Md5) then
MessageBox.Show("The file is the same")
else
messagebox.Show("The file is changed")
end if

plz help

[n8wxs]

Here's a snippet, written in C#, to compute a file's MD5 checksum:

Calculate MD5 Checksum for a File

[iBot]

Can't remember where I got it but just found it on my comp.


Usage:

CompareFiles(Path to first file,Path to second file)

Imports:

Imports System.IO
Imports System.Security.Cryptography

Snippet:

    Public Function CompareFiles(ByVal FirstFile As String, _
           ByVal SecondFile As String) As Boolean
        Return ReadFile(FirstFile) = ReadFile(SecondFile)
    End Function

    Private Function ReadFile(ByVal Path As String) As String
        Dim ReadFileStream As FileStream
        Dim FileEncoding As New System.Text.ASCIIEncoding()
        Dim FileReader As StreamReader
        Dim HashData As New MD5CryptoServiceProvider()
        ReadFileStream = New FileStream(Path, FileMode.Open)
        FileReader = New StreamReader(ReadFileStream)
        Dim FileBytes = FileEncoding.GetBytes(FileReader.ReadToEnd)
        Dim FetchedContent = FileEncoding.GetString(HashData.ComputeHash(FileBytes))
        FileReader.Close()
        ReadFileStream.Close()
        Return FetchedContent
    End Function

This post has been edited by iBot: 22 February 2010 - 10:31 PM

[andrey_cool]

iBot, on 22 February 2010 - 09:29 PM, said:

Can't remember where I got it but just found it on my comp.


Usage:

CompareFiles(Path to first file,Path to second file)

Imports:

Imports System.IO
Imports System.Security.Cryptography

Snippet:

    Public Function CompareFiles(ByVal FirstFile As String, _
           ByVal SecondFile As String) As Boolean
        Return ReadFile(FirstFile) = ReadFile(SecondFile)
    End Function

    Private Function ReadFile(ByVal Path As String) As String
        Dim ReadFileStream As FileStream
        Dim FileEncoding As New System.Text.ASCIIEncoding()
        Dim FileReader As StreamReader
        Dim HashData As New MD5CryptoServiceProvider()
        ReadFileStream = New FileStream(Path, FileMode.Open)
        FileReader = New StreamReader(ReadFileStream)
        Dim FileBytes = FileEncoding.GetBytes(FileReader.ReadToEnd)
        Dim FetchedContent = FileEncoding.GetString(HashData.ComputeHash(FileBytes))
        FileReader.Close()
        ReadFileStream.Close()
        Return FetchedContent
    End Function

thanks it works fine! cheers!