Forum Discussion
QAPitt
13 years agoOccasional Contributor
Would this work for VBScripting?
Sub ChangeASaMenuPath ()
Dim Application
Dim os64bits
Dim aSaMenuPath
os64bits = sys.OSInfo.Windows64bit
aSaMenuPath = testedapps.aSaMenu.Path
if (os64bits = true) then
Application = Replace(aSaMenuPath,"Program Files","Program Files (x86)")
else
Application = Replace(aSaMenuPath,"Program Files (x86)","Program Files")
End If
End Sub
It runs through without error but doesn't actually seem to do anything.
Sub ChangeASaMenuPath ()
Dim Application
Dim os64bits
Dim aSaMenuPath
os64bits = sys.OSInfo.Windows64bit
aSaMenuPath = testedapps.aSaMenu.Path
if (os64bits = true) then
Application = Replace(aSaMenuPath,"Program Files","Program Files (x86)")
else
Application = Replace(aSaMenuPath,"Program Files (x86)","Program Files")
End If
End Sub
It runs through without error but doesn't actually seem to do anything.
Related Content
- 7 months agotarttdh
Recent Discussions
- 4 hours agoSubhraDas
- 23 hours agotramuntana