Использование VB6 + WSH с компрессией Windows

Question

Проблемы с WSH и сжатием Windows.

Моя цель состоит в том, чтобы иметь возможность архивировать файлы (не папки, а отдельные файлы из разных мест, которые я сохранил в массиве), используя встроенное сжатие Windows. Я использую VB6.

Вот моя рутина (VB6 код):

Dim objShell 
Dim objFolder 
Set objShell = CreateObject("Shell.Application") 
Set objFolder = objShell.namespace(savePath & "\export.zip") 
' -- 
' loop through array holding files to zip 
For i = 0 To filePointer 
    objFolder.CopyHere (filesToZip(i)) 
Next 
' -- 
Set objShell = Nothing 
Set objFolder = Nothing 

Он работает, но возникают проблемы, когда есть больше, чем несколько файлов. Я начинаю получать ошибки из Windows (предположительно, слишком быстрое его сжатие и zip-файл заблокирован). I Невозможно понять, как WAIT, пока функция COPYHERE не завершит перед вызовом следующего, чтобы избежать проблем.

У кого-нибудь есть опыт?

Спасибо -

Answer 1

Вы должны быть в состоянии достигнуть такого рода синхронизации, проверяя количество файлов в папке целевой ZIP, прежде чем перейти к следующей итерации цикла (как это было предложено here и here):

For i = 0 To filePointer 
    objFolder.CopyHere filesToZip(i) 

    Do Until objFolder.Items.Count = i+1 
    WScript.Sleep 100 
    Loop 
Next