Архивация большого количества файлов

[88ra]

Добрый день всем!
Описание: Архивация некого множества мелких документов(от 50 до 200 штук).
Проблемка: функция DoEvents, несмотря на ее качества, не помогает записать эту кучку файлов в архив, не успевает диск записывать, и происходит ошибка записи или обращения к архиву.
Решается задержкой в 1 секунду или меньше с помощью подбора значений в пустом цикле, но может есть более универсальное решение?

Кусок кода архивации:

For iCtr = LBound(FName, 2) To UBound(FName, 2)
            vArr = Split97(FName(Index, iCtr), "\")
            sFName = vArr(UBound(vArr))
            If sFName <> "" Then
             
            Else
                    
                        i = i + 1
                       
                        oApp.Namespace((FileNameZip)).CopyHere (FName(Index, iCtr))
                         Do Until oApp.Namespace((FileNameZip)).items.Count = i
                             DoEvents
                            
                            'If i = 50 Then Stop
                            Application.Wait (Now + TimeValue("0:00:01"))
                            'iii = 0
                            'For ii = 1 To 4000000
                            ' iii = iii + 1
                            ' Next ii
                        Loop
                        
              End If
        Next iCtr

[EducatedFool]

Решение есть - использовать программу WinRAR для архивации
Работает куда более стабильно, нежели средства Windows (из собственного опыта), и никаких задержек ставить не надо.

Примеры кода есть на форуме (как-то выкладывал)

[88ra]

Спасибо за совет, попробую! Хотелось бы конечно не контролировать установку WinRara на машинах пользователей, которые юзают этот макрос... ну придется)

[88ra]

Вариант с WinRar который нашел архивирует указанную папку

 FolderPath = "C:\" ' папка с файлами
   ArchieveFileName = Chr(34) & FolderPath & "Мой архив .exe" & Chr(34) ' имя и путь создаваемого архива
   Mask = Chr(34) & FolderPath & "*.xls" & Chr(34) ' добавляем только файлы Excel


    CommandLine = WinRAR_Path & WinRAR_Keys & ArchieveFileName & " " & Mask

А можно, чтоб пути файлов конкретных по одному добавлять?