Dim path As String = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\PenPower Write2Go\Bin\Write2Go.exe"
Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles)
就是获取系统ProgramFiles文件夹路径的函数,如果是64位的windows系统,则会自动获取到Program Files(x86)文件夹的路径