how to browse and open a file on window dialog box using vb scripting

Question

For one of the requirement, I need to click on browse button on the UI which will open up the window dialog box with title "Choose File to Upload". I need to input file name in the input box for file name and click on Open button on this window dialog. I tried the code to activate this window and to use shell script to send keys, but it's not working. Can someone please help in getting this resolved? snapshot of the window dialog

Do 
  bResult = objWshShell.AppActivate("Choose File to Upload")
  If bResult = True Then 
    oShell.SendKeys "C:\text.xls"
    oShell.SendKeys "{ENTER}"
    Exit Do 
  End If 
  WScript.Sleep 500 
Loop 

Answer 1

Do bResult = objWshShell.AppActivate("Choose File to Upload") If bResult = True Then oShell.SendKeys "%n" oShell.SendKeys "C:\\text.xls" oShell.SendKeys "{ENTER}" Exit Do End If WScript.Sleep 500 Loop