Imports System.IO
Module Module1
Sub Main()
Try
Dim file As New IO.FileInfo("d:\\data.txt")
Console.WriteLine(file.LastWriteTime())
file.LastWriteTime = New DateTime(1610, 2, 18, 3, 40, 5)
Console.WriteLine(file.LastWriteTime())
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub
'run:
'
'6/15/2015 11:05:46 PM
'2/18/1610 3:40:05 AM
End Module