Mega Code Archive

 

Categories / VB.Net / File Directory

 

Sets the date and time the specified file or directory was last accessed

Imports System Imports System.IO Public Class Test     Public Shared Sub Main()         Try             Dim path As String = "c:\MyDir"             If Directory.Exists(path) = False Then                 Directory.CreateDirectory(path)             End If             Directory.SetLastAccessTime(path, New DateTime(1985, 5, 4))             Dim dt As DateTime = Directory.GetLastAccessTime(path)             Console.WriteLine("The last access time for this directory was {0}", dt)             Directory.SetLastAccessTime(path, DateTime.Now)             dt = Directory.GetLastAccessTime(path)             Console.WriteLine("The last access time for this directory was {0}", dt)         Catch e As Exception             Console.WriteLine("The process failed: {0}", e.ToString())         End Try     End Sub End Class