QTP: How to copy file from onle location and paste it into another and verify file count at the end

Question

I need to write a vbscript for Copying files from local directory(Windows) to another(shared drive) and verify the counts at the end to make sure everything copied successfully. Any ideas on what the script will look like?

Here is what I recorded using GUI 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

To copy files from one foler to another, Why do you record using QTP/UFT? The script recorded by QTP will not be reliable. (might not work everytime.) QTP supports VBScript. It is easy to copy files from one folder to another folder using VBScript.

To copy all files from temp1 to temp2 folder - just these 2 lines will do

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

Once files are moved, You want to compare the files count. (I assume temp2 folder was empty before copying the files)

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