Forum Discussion
4 Replies
Sort By
Hi Jing,
TestComplete does not have such functionality.- jinglu1977Occasional ContributorCan script extension implement that?
- Hi Jing,
No. As an alternative, you can emulate actions of copying by using Windows Explorer (you can record the needed operations). Below, is a script I recorded on my PC - it performs this task for the Pocket_PC portable device:
Dim wndComputer
Dim directUIHWND
Dim folderView
Set wndComputer = Sys.Process("Explorer").Window("CabinetWClass", "Computer")
Set directUIHWND = wndComputer.Window("ShellTabWindowClass", "Computer").Window("DUIViewWndClassName").Window("DirectUIHWND")
Call directUIHWND.Window("CtrlNotifySink", "", 5).Window("SHELLDLL_DefView", "ShellView").Window("SysListView32", "FolderView").DblClickItem("Pocket_PC", 0)
Call directUIHWND.Window("CtrlNotifySink", "", 5).Window("SHELLDLL_DefView", "ShellView").Window("SysListView32", "FolderView").DblClickItem("\", "23.6 MB free of 31.4 MB")
Set folderView = directUIHWND.Window("CtrlNotifySink", "", 5).Window("SHELLDLL_DefView", "ShellView").Window("SysListView32", "FolderView")
Call folderView.ClickItem("pim", "5/23/2011 11:03 AM")
Call folderView.ClickItemR("pim", "5/23/2011 11:03 AM")
Call folderView.PopupMenu.Click("Copy")
Call wndComputer.Window("WorkerW", "Navigation Bar").Window("ReBarWindow32").Window("Address Band Root").Window("msctls_progress32").Window("Breadcrumb Parent").Window("ToolbarWindow32", "Address: Computer\Pocket_PC\\").ClickItemXY("Computer", 41, 13, False)
Set folderView = directUIHWND.Window("CtrlNotifySink", "", 5).Window("SHELLDLL_DefView", "ShellView").Window("SysListView32", "FolderView")
Call folderView.DblClickItem("Local Disk (C:)", 0)
Set folderView = directUIHWND.Window("CtrlNotifySink", "", 5).Window("SHELLDLL_DefView", "ShellView").Window("SysListView32", "FolderView")
Call folderView.DblClickItem("Folder", 0)
Set folderView = directUIHWND.Window("CtrlNotifySink", "", 5).Window("SHELLDLL_DefView", "ShellView").Window("SysListView32", "FolderView")
Call folderView.ClickR(114, 102)
Call folderView.PopupMenu.Click("Paste")
Please note that the script may look different in your case, my script only demonstrates the idea.
Related Content
Recent Discussions
- 3 days agovladd1