s Code:
Dim sServer As String = "#######\128974_1_En_2_Chapter.xml"
Dim sClient As String = "C:\Enfocus\Deva\128974_1_En_2_Chapter.xml"
If File.Exists(sServer) Then
If File.Exists(sClient) Then File.Delete(sClient)
File.Copy(sServer, sClient)
End If
Dim odDate As DateTime = File.GetLastWriteTime(sClient)
Dim osDate As DateTime = File.GetLastWriteTime(sServer)
'If Date.Compare(osDate, odDate) > 1 Then
If DateDiff(DateInterval.Second, osDate, odDate) > 1 Then
MessageBox.Show("failure-Wrong file")
Else
MessageBox.Show("Success-Right File")
End If