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

我有一个脚本，我只是把整个文件夹，它的子文件夹和文件复制到一个新的目标。我试图实现的是在复制每个文件副本时验证其是否通过filesize、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""")

---

与问题无关，但如果Err.Number=0，则应为

如果Err.Number=0，则

记录错误。注意，谢谢