Mega Code Archive

 

Categories / VB.Net / File Directory

 

Update Directory

Imports System.IO Module Module1     Sub Main()         If (Directory.Exists("C:\WINNT\Temp")) Then             Dim Dir As New DirectoryInfo("C:\WINNT\Temp")             Dim DateTimeNow As DateTime = DateTime.Now()             Try                 Dir.CreationTime = DateTimeNow                 Dir.LastAccessTime = DateTimeNow                 Dir.LastWriteTime = DateTimeNow                 Console.WriteLine("Directory attributes updated")             Catch E As Exception                 Console.WriteLine("Error updating attributes")                 Console.WriteLine("Error {0}: ", E.Message)             End Try         Else             Console.WriteLine("C:\WINNT\Temp does not exist")         End If     End Sub End Module