Imports System.IO
Module Module1
Sub Main()
Try
Dim FileObj As New FileInfo("test.dat")
FileObj.CreationTime = DateTime.Now
FileObj.LastAccessTime = DateTime.Now
FileObj.LastWriteTime = DateTime.Now
Console.WriteLine("test.dat date and time updated")
Catch Ex As Exception
Console.WriteLine("Error updating test.dat " & Ex.Message)
End Try
End Sub
End Module
|