Mega Code Archive

 

Categories / VB.Net / File Directory

 

FileSystemInfo LastAccessTime Property gets or sets the time the current file or directory was last accessed

Imports System Imports System.IO Public Class Touch     Public Shared Sub Main(ByVal args() As String)         If args.Length > 0 Then             If File.Exists(args(0)) Then                 Dim fi As FileInfo = New FileInfo(args(0))                 touchFile(fi)             Else                 Console.WriteLine("Could not find the file {0}", args(0))             End If         Else             Console.WriteLine("No file specified.")         End If     End Sub     Public Shared Sub touchFile(ByVal fsi As FileSystemInfo)         Console.WriteLine("Touching: {0}", fsi.FullName)         Try             fsi.CreationTime = DateTime.Now             fsi.LastAccessTime = DateTime.Now             fsi.LastWriteTime = DateTime.Now         Catch e As Exception             Console.WriteLine("Error: {0}", e.Message)         End Try     End Sub End Class