Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement