He escrito un pequeño VBScript para crear un archivo .zip y luego copia el contenido de una carpeta específica en ese archivo .zip.

Copio los archivos uno por uno por una razón (sé que puedo hacer todo de una vez). Sin embargo, mi problema es cuando intento copiarlos uno por uno sin un WScript.Sleep entre cada iteración de bucle obtengo un "Archivo no encontrado o sin permiso de lectura". error; si pongo unWScript.Sleep 200 después de cada escritura funciona pero no el 100% del tiempo.

Me gustaría deshacerme de la función de suspensión y no confiar en eso porque, dependiendo del tamaño del archivo, puede llevar más tiempo escribir, por lo tanto, 200 milisegundos pueden no ser suficientes, etc.

Como puede ver con el pequeño fragmento de código a continuación, recorro los archivos, luego, si coinciden con la extensión, los coloco en el archivo .zip (zipFile)

For Each file In folderToZip.Items
    For Each extension In fileExtensions
        if (InStr(file, extension)) Then
            zipFile.CopyHere(file)
            WScript.Sleep 200
            Exit For
        End If
    Next
Next

¿Alguna sugerencia sobre cómo puedo dejar de depender de la función Sleep?

Gracias