Temas

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 [Seleccionar] Expandir

[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)]