Imports System.IO
Module Module1
Sub Main()
Dim Dir As New DirectoryInfo("C:\WINNT\Temp")
Console.WriteLine("Full name: {0}", Dir.FullName)
Console.WriteLine("Creation time: {0}", Dir.CreationTime)
Console.WriteLine("Last access time: {0}", Dir.LastAccessTime)
Console.WriteLine("Last write time: {0}", Dir.LastWriteTime)
End Sub
End Module