últimos mensajes de: pepeponce

Set folder = CreateObject("Scripting.FileSystemObject"). _
GetFolder("C:\Source Directory\")
On Error Resume Next
folder.Copy("C:\Target Directory\")
If (Err.Number <> 0) Then
MsgBox(Err.Description)
Else
MsgBox("Copy Successful")
End If
On Error Goto 0

Hola he hecho este script para copiar unas carpetas que contienen imágenes.
Mi consulta es como puedo confirmar (mediante comparación o verificando) que las carpetas se han copiado completamente.

Gracias por adelantado.

Código:

[Option Explicit

Dim objArgumentos
Set objArgumentos = WScript.Arguments

If objArgumentos.Count = 0 Then
    MsgBox ("No hay argumentos")
Else
	Dim  IP, OF, LOT, MODULO
	
    IP= objArgumentos.Item(0)
	OF= objArgumentos.Item(1)
    LOT= objArgumentos.Item(2)
    MODULO= objArgumentos.Item(3)

	Dim Nosecopian
    'Pregunta de fin de lote productivo
    If Msgbox("Fin de lote productivo?", vbYesNo, "Confirmar") = vbNo 	Then
        'No es fin de lote productivo no realiza ninguna acción
        Nosecopian = MSGBOX ("No se copian las imagenes" & chr(13) & "Se finaliza lote", VBEXCLAMATION, "Aviso")
    Else
		Dim nameFolder, dtmValue, ParentFolder
		Dim objShell,objFolder,objFSO
        'Adquirimos la hora actual
        Set objFSO = CreateObject("Scripting.FileSystemObject")
		dtmValue = Now()		
        'Creamos la carpeta de destino 
		nameFolder = IP & "\" & OF & "_" & LOT & "_" & MODULO & "_" & Year(dtmValue) & "-" & Month(dtmValue) & "-" & Day(dtmValue) & "_" & Hour(dtmValue) & "-" & Minute(dtmValue) 
		objFSO.CreateFolder(nameFolder)	

		'Copiamos carpeta
		Const FOF_CREATEPROGRESSDLG = &H0&
		ParentFolder = (nameFolder) 
		Set objShell = CreateObject("Shell.Application")
		Set objFolder = objShell.NameSpace(ParentFolder) 
		objFolder.CopyHere "e:\folder\folder\*.*", FOF_CREATEPROGRESSDLG
				
        'Preguntamos si se borran las imagenes
		Set objFSO = CreateObject("scripting.FileSystemObject")
        If Msgbox("Imagenes copiadas correctamente" & chr(13) & "Borrar imagenes?", vbYesNo, "Confirmar") = vbYes Then
           objFSO.deletefolder "e:\folder\folder\*.*"  
        End if
    End if
End if

wscript.Quit(5)]