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
Related examples in the same category