
My.Computer.FileSystem.SpecialDirectories.ProgramFiles
Dim ProgramFilesPath32 As String = My.Computer.FileSystem.Drives(0).ToString & "Program Files\" Dim ProgramFilesPath64 As String = My.Computer.FileSystem.Drives(0).ToString & "Program Files (x86)\"