PFDirHelper

Module Module1

    Sub Main()
        'Binary at http://atbash.blob.core.windows.net/downloads/PFDirHelper.exe
        'Dim DefaultPath As String

        If Environment.Is64BitOperatingSystem Then
            Console.WriteLine("I am a 64-bit Operating Systems.")
        Else
            Console.WriteLine("I am not a 64-bit Operating Systems.")
        End If

        If Environment.Is64BitProcess Then
            Console.WriteLine("I am a 64-bit Process.")
        Else
            Console.WriteLine("I am not a 64-bit Process.")
        End If

        Dim  fullPath = Environment.GetEnvironmentVariable("ProgramFiles")

        Console.WriteLine("My program files directory is: " + fullPath)

        Console.ReadLine()

    End Sub

End Module