Forum Discussion
aceishigh
13 years agoContributor
Thanks a lot for the suggestion. For my needs, I eventually came up with the following solution. It works fine on IE8 and Win 2003 server. Haven't tested it yet on Firefox or other systems.
****************************************
Set Page = iexplore.Page("*")
' Click on Install button
InstallObj = page.EvaluateXPath("//*[@id='install.button']")
InstallObj(0).Click
' Double click on file input to add a file
****************************************
Set Page = iexplore.Page("*")
' Click on Install button
InstallObj = page.EvaluateXPath("//*[@id='install.button']")
InstallObj(0).Click
' Double click on file input to add a file
BrowseObj = page.EvaluateXPath("//*[@id='file.input']")
BrowseObj(0).DblClick
' Add path to the file using sendkeys
Sys.Desktop.Keys("C:\Users\me\Desktop\myzip.zip")
Sys.Desktop.Keys("[Enter]")
aqUtils.Delay 2000
' Click the OK button
OKObj = page.EvaluateXPath("//*[@id='box.ok']")
OKObj(0).Click
OKObj(0).Click
*****************************************
Related Content
Recent Discussions
- 4 hours agoSubhraDas
- 10 hours agoJacobjacob44