Запись в файл с использованием CopyHere без использования WScript.Sleep

Я написал небольшой VBScript для создания файла .zip, а затем копирует содержимое указанной папки в этот файл .zip.

Я копирую файлы по одному по причине (я знаю, что могу сделать все сразу). Однако моя проблема заключается в том, что, когда я пытаюсь скопировать их одно за другим без WScript.Sleep между каждой итерацией цикла, я получаю «Файл не найден или нет разрешения на чтение». ошибка; если я поставлюWScript.Sleep 200 после каждой записи это работает, но не 100% времени.

Я бы очень хотел избавиться от функции Sleep и не полагаться на это, потому что в зависимости от размера файла запись может занять больше времени, поэтому 200 миллисекунд может быть недостаточно.

Как вы можете видеть из небольшого фрагмента кода ниже, я перебираю файлы, а затем, если они соответствуют расширению, я помещаю их в .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

Любые предложения о том, как я могу перестать полагаться на функцию сна?

Спасибо