Imports System
Imports System.IO
Imports System.Collections
Class Sample
Public Shared Sub Main()
' Change the directory to %WINDIR%
Environment.CurrentDirectory = Environment.GetEnvironmentVariable("windir")
Dim info As New DirectoryInfo(".")
Console.WriteLine(("Directory Info: " + info.FullName))
End Sub
End Class