Draging a file from one folder and droping it onto the exe in another folder

[freeboynil]

My suggestion is Open the C:\Newfolder excel sheet and save it in the location of D:\Newfolder then delete the file in c:\Newfolder.

Code:

set ExcelObj = CreateObject("Excel.Application")
set oBook = ExcelObj.Workbooks.Open("C:\Newfolder.xls")
ExcelObj.Application.Visible = True
Excelobj.ActiveWorkbook.saveas "D:\newfolder.xls"
Excelobj.quit

next delete the c folder workbook