QTP：如何從onle位置複製文件並將其粘貼到另一個文件，並在末尾驗證文件數量

-1

我需要編寫一個用於將文件從本地目錄（Windows）複製到另一個（共享驅動器）的vbscript，並驗證計數最終確保一切複製成功。有關腳本的外觀的任何想法？QTP：如何從onle位置複製文件並將其粘貼到另一個文件，並在末尾驗證文件數量

這是我使用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"

來源

2015-01-31 Oleg Mikhalitsyn

到目前爲止你有什麼？ – eurotrash 2015-02-01 08:36:58

這是我使用GUI UFT錄製的內容：SystemUtil.Run「C：\ Users \ Downloads」 Window（「Documents」）。WinObject（「Items View」）。WinList（「Items View」）。激活「Unified Functional Testing 「WinList（」Items View「）。WinList（」Items View「）。選擇」APITest1「 Window（」Documents「）。WinObject（」ShellView「）。WinMenu（」ContextMenu「）選擇「複製」窗口（「文檔」）。還原窗口（「文檔」）。WinTreeView（「WinTreeView」）。選擇「桌面;此PC;下載」窗口（「文檔」）。WinObject 「）.WinMenu（」ContextMenu「）。選擇」粘貼「 – 2015-02-01 20:05:57

您可以（也應該）通過編輯來更新您的問題，而不是添加註釋。 – TheBlastOne 2015-02-04 10:08:29

從一個foler複製到另一個文件，爲什麼你記錄使用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

來源

2015-02-02 00:41:01 vins

QTP：如何從onle位置複製文件並將其粘貼到另一個文件，並在末尾驗證文件數量

回答

相關問題