Mega Code Archive

 

Categories / VB.Net / File Directory

 

Sets the date and time a directory was last written to

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)             Else                 Directory.SetLastWriteTime(path, New DateTime(1985, 4, 3))             End If             Dim dt As DateTime = Directory.GetLastWriteTime(path)             Console.WriteLine("The last write time for this directory was {0}", dt)             Directory.SetLastWriteTime(path, DateTime.Now)             dt = Directory.GetLastWriteTime(path)             Console.WriteLine("The last write 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