Local lcFile
lcFile = 'c:\'+Substr(Sys(2015),2,8)+'.mht'
oIE = Createobject('internetexplorer.application')
oIE.navigate('www.atoutfox.org')
Inkey(6)
oIE.Visible =.T.
sp=Createobject("Wscript.Shell")
sp.SendKeys('%F')
sp.SendKeys('a')
sp.SendKeys('&lcFile')
Inkey(1)
sp.SendKeys("{TAB}")
sp.SendKeys('W')
sp.SendKeys("{TAB}")
sp.SendKeys('S')
oIE.Quit