Forum Discussion

yoni's avatar
yoni
New Contributor
15 years ago

Dynamically change the Application path between 64 vs 32 bit machines

Hi,  I'm testing a 32bit application on windows 7 64bit and on Vista 32bit machines. The application's path is different on each machine (Program Files vs. Program Files(x86) )  I would like...
QAPitt's avatar
QAPitt
Occasional Contributor
14 years ago
FYI, I changed your code slightly because on a 64 bit environment when the Else statement took place it was changing "Program Files (x86)" to "Program Files (x86) (x86)" etc.



Here is the final version of the code I came up with:



Sub ChangeASaMenuPath ()  

  Dim Application  

  Dim os64bits  

  Dim aSaMenu  

  os64bits = Sys.OSInfo.Windows64bit  

  Set aSaMenu = TestedApps.aSaMenu  

  

  If (os64bits = True) And aSaMenu.Path = "C:\Program Files\aSa\CI\" Then 

    aSaMenu.Path = Replace(aSaMenu.Path,"Program Files","Program Files (x86)") 

  End If  

  

  If (os64bits = False) And aSaMenu.Path = "C:\Program Files (x86)\aSa\CI\" Then

    aSaMenu.Path = Replace(aSaMenu.Path,"Program Files (x86)","Program Files")  

  End If 

End Sub 
Thanks again for all the help.