Open IE and save document to desktop

[Hawk3116]

I have the code below that goes into SAP and opens an invoice in adobe pdf viewer in IE.

session.FindById("wnd[0]/tbar[0]/okcd").Text = "/nea40"
session.FindById("wnd[0]").SendVKey 0
session.FindById("wnd[0]/usr/ctxtERDK-OPBEL").Text = InvoiceNumber
session.FindById("wnd[0]/usr/ctxtERDK-OPBEL").CaretPosition = 11
session.FindById("wnd[0]").SendVKey 0
session.FindById("wnd[0]/tbar[1]/btn[16]").Press

session.FindById("wnd[1]/usr/cntlCUSTOM_CONTAINER_100/shellcont/shell").SetCurrentCell -1, "BITM_DESCR"
session.FindById("wnd[1]/usr/cntlCUSTOM_CONTAINER_100/shellcont/shell").SelectColumn "BITM_DESCR"
session.FindById("wnd[1]/usr/cntlCUSTOM_CONTAINER_100/shellcont/shell").PressColumnHeader "BITM_DESCR"
session.FindById("wnd[1]/usr/cntlCUSTOM_CONTAINER_100/shellcont/shell").SetCurrentCell -1, "BITM_DESCR"
session.FindById("wnd[1]/usr/cntlCUSTOM_CONTAINER_100/shellcont/shell").SelectColumn "BITM_DESCR"
session.FindById("wnd[1]/usr/cntlCUSTOM_CONTAINER_100/shellcont/shell").PressColumnHeader "BITM_DESCR"
session.FindById("wnd[1]/usr/cntlCUSTOM_CONTAINER_100/shellcont/shell").CurrentCellColumn = "BITM_DESCR"
session.FindById("wnd[1]/usr/cntlCUSTOM_CONTAINER_100/shellcont/shell").SelectedRows = "0"
session.FindById("wnd[1]/usr/cntlCUSTOM_CONTAINER_100/shellcont/shell").DoubleClickCurrentCell

What I would like to do now is have this save to specific name and folder on my desktop but I don't know where to begin. Can someone please help?