vbscript - 使用 VBScript 递归检查复制项目到新目标的文件和文件夹

Question

我有一个脚本，我只是将整个文件夹、其子文件夹和文件复制到一个新的目的地。我想要实现的是验证每个文件副本，因为它是否通过文件大小复制它，md5 对我来说并不重要。我只想确保每个文件在移动到下一个文件之前复制 100%，并可能将输出通过管道传输到文本文件。下面的代码是我到目前为止所拥有的，我只是不确定如何继续它。

On Error Resume Next
Dim objShell, objSMPDriversSource, objLibrarySource, objSMPDriversDest, objLibraryDest, FSO, F
set objShell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.CreateTextFile("C:\Users\Dummy\Desktop\replication_log.txt", True)

'Stop Symantec Management Agent & World Wide Web Publishing Service - Services
objShell.run("net stop ""Symantec Management Agent""")
objShell.run("net stop ""World Wide Web Publishing Service""")

'Begin Copy of SMP Drivers & Library
objSMPDriversSource = "D:\SMPDrivers"
objSMPDriversDest = "D:\seed_backup\SMPDrivers"
objLibrarySource = "D:\LIBRARY"
objLibraryDest = "D:\seed_backup\LIBRARY"

FSO.CopyFolder objSMPDriversSource, objSMPDriversDest
'FSO.CopyFolder objLibrarySource, objLibraryDest

If Err.Number = 0 Then
F.WriteLine "File Copy Problem: " & err.number, err.description
End If

If FSO.FileExists(objSMPDriversDest) Then
F.WriteLine "File Copied"
End If

F.Close

'Start Symantec Management Agent & World Wide Web Publishing Service - Services
objShell.run("net start ""Symantec Management Agent""")
objShell.run("net start ""World Wide Web Publishing Service""")

标签： vbscript