Question

我需要编写一个vbscript，用于将文件从本地目录（Windows）复制到另一个（共享驱动器），并在最后验证计数，以确保一切都成功复制。关于脚本会是什么样子的任何想法？

以下是我使用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

要将文件从一个文件夹复制到另一个文件夹，为什么要使用QTP / UFT进行记录？ QTP记录的脚本不可靠。（可能每次都不起作用。）QTP支持VBScript。使用VBScript可以轻松地将文件从一个文件夹复制到另一个文件夹。

要将所有文件从temp1复制到temp2文件夹 - 只需这两行就可以了

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

QTP：如何从onle位置复制文件并将其粘贴到另一个位置并在最后验证文件计数

1 个答案: