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

[TaranVohra]

Hi ,
i want to know how can i select ,then Drag a CSV file from one folder over the exe placed in another folder

[ravi.gajul]

Hi Taran,
In order to achieve drag and drop, we shall use "Mercury.DeviceReplay" Object.Please see the example below for your reference

Code:

with Browser("..").Page("...r")    

x1=.WebElement("innerhtml:=TextBox").GetROProperty("abs_x")+10
h=.WebElement("innerhtml:=Text Box").GetROProperty("height")
y1=.WebElement("innerhtml:=Text Box").GetROProperty("abs_y")+h-10

end with

Set oDeviceReplay=CreateObject( "Mercury.DeviceReplay" )
oDeviceReplay.DragAndDrop x1,y1,x2,y2, LEFT_MOUSE_BUTTON
where
(x1,y1)=drag point
(x1,y2)=drop point

[TaranVohra]

Hi ...
i am actually interested in Dragging a File from one folder (C:\Newfolder) to say (D:\NewFolder)...

i am working on a Desktop application which requires an excel file to be dragged and dropped on an EXE of the app...

please help with this

[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