QTP: как скопировать файл из местоположения onle и вставить его в другой, и проверить количество файлов в конце

Question

Мне нужно написать vbscript для копирования файлов из локального каталога (Windows) в другой (общий диск) и проверить количество в конец, чтобы убедиться, что все успешно скопировано. Любые идеи о том, как будет выглядеть скрипт?

Вот что я записал с помощью графического интерфейса пользователя UFT:

SystemUtil.Run "C:\Users\Downloads" 
Window("Documents").WinObject("Items View").WinList("Items View").Activate "Unified Functional Testing" 
Window("Documents").WinObject("Items View").WinList("Items View").Select "APITest1" 
Window("Documents").WinObject("ShellView").WinMenu("ContextMenu").Select "Copy" 
Window("Documents").Restore Window("Documents").WinTreeView("WinTreeView").Select "Desktop;This PC;Downloads" 
Window("Documents").WinObject("ShellView").WinMenu("ContextMenu").Select "Paste" 

Answer 1

Для копирования файлов из одного foler к другому, почему запись выполняется с помощью QTP/UFT? Сценарий, записанный QTP, не будет надежным. (может не работать каждый раз.) QTP поддерживает VBScript. Скопировать файлы из одной папки в другую папку легко с помощью VBScript.

Чтобы скопировать все файлы из temp1 в temp2 папку - только эти 2 строки будут делать

Set oFSO = CreateObject("Scripting.FileSystemObject") 
oFSO.CopyFile "C:\vIns\temp1\*.*" , "C:\vIns\temp2\" , TRUE 

После перемещения файлов, Вы хотите сравнить подсчитывать файлы. (Я предполагаю, что папка temp2 была пуста до копирования файлов)

iTemp1Count = oFSO.getFolder("C:\vIns\temp1\").Files.Count 
iTemp2Count = oFSO.getFolder("C:\vIns\temp2\").Files.Count 

If iTemp1Count = iTemp2Count Then 
    Msgbox "all files are copied" 
Else 
    Msgbox "Something is wrong!!!" 
End If