Imports System.IO
Module Module1
Sub Main()
Try
Dim file As New IO.FileInfo("d:\\data.txt")
Console.WriteLine(file.LastWriteTime())
Dim d As DateTime = file.LastWriteTime
file.LastWriteTime = New DateTime(1999, 12, 31, d.Hour, d.Minute, d.Second)
Console.WriteLine(file.LastWriteTime())
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub
'run:
'
'2/18/1610 3:40:05 AM
'12/31/1999 3:40:05 AM
End Module