Grave no arquivo usando o CopyHere sem usar o WScript.Sleep

Eu escrevi um VBScript pequeno para criar um arquivo .zip e, em seguida, copia o conteúdo de uma pasta especificada para esse arquivo .zip.

Copio os arquivos um por um por um motivo (sei que posso fazer todo o lote de uma vez). No entanto, meu problema é quando tento copiá-los um por um sem um WScript.Sleep entre cada iteração de loop, recebo a mensagem "Arquivo não encontrado ou sem permissão de leitura". erro; se eu colocar umWScript.Sleep 200 após cada gravação, funciona, mas não 100% do tempo.

Eu gostaria de me livrar da função Sleep e não confiar nisso, porque dependendo do tamanho do arquivo pode demorar mais para ser gravado, portanto, 200 milissegundos podem não ser suficientes etc.

Como você pode ver no pequeno trecho de código abaixo, eu percorro os arquivos e, se eles corresponderem à extensão, eu os colocarei no .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

Alguma sugestão sobre como parar de confiar na função Dormir?

obrigado