Private Function IsEqual(ByVal a As String, b As String) As Boolean
        Dim fa As New IO.FileInfo(a)
        Dim fb As New IO.FileInfo(b)
 
        If Not fa.Exists Or Not fb.Exists Then Return False
 
        If Not fa.CreationTime.Equals(fb.CreationTime) Then Return False
        If Not fa.LastAccessTime.Equals(fb.LastAccessTime) Then Return False
        If Not fa.LastWriteTime.Equals(fb.LastWriteTime) Then Return False
        If Not fa.Length = fb.Length Then Return False
        Return True
  End Function

    Public Enum FileDifference
        None
        Exists
        CreationTime
        LastAccessTime
        LastWriteTime
        Length
    End Enum
 
    Private Function IsEqual(ByVal a As String, b As String) As FileDifference
 
        Dim fa As New IO.FileInfo(a)
        Dim fb As New IO.FileInfo(b)
 
        If Not fa.Exists Or Not fb.Exists Then Return FileDifference.Exists
 
        If Not fa.CreationTime.Equals(fb.CreationTime) Then _
              Return FileDifference.CreationTime
 
        If Not fa.LastAccessTime.Equals(fb.LastAccessTime) Then _
              Return FileDifference.LastAccessTime
 
        If Not fa.LastWriteTime.Equals(fb.LastWriteTime) Then _
              Return FileDifference.LastWriteTime
 
        If Not fa.Length = fb.Length Then Return FileDifference.Length
 
        Return FileDifference.None
 
    End Function