Как отключить системные сообщения при работе с архивами ZIP?

' Копирование в архив ONS.ZIP
 
Dim ShellApp  As Object, DestFolder As Object
'Create empty Zip File
'Call NewZip(ZipName)
 
Set ShellApp = CreateObject("Shell.Application")
Set DestFolder = ShellApp.Namespace((strPathZagF2))
 
iCount = DestFolder.Items.Count
'Copy the file into the zip folder
DestFolder.CopyHere (strPathZagF4)
'Keep script waiting until Compressing is done
Do Until DestFolder.Items.Count = iCount + 1
    Sleep 333
Loop
 
iCount = DestFolder.Items.Count
'Copy the file into the zip folder
DestFolder.CopyHere (strPathZagF5)
'Keep script waiting until Compressing is done
Do Until DestFolder.Items.Count = iCount + 1
    Sleep 333
Loop
 
'>>>
iCount = DestFolder.Items.Count
'Copy the file into the zip folder
DestFolder.CopyHere (fnBuildPath(strPathRab, "A32\"))
'Keep script waiting until Compressing is done
Do Until DestFolder.Items.Count = iCount + 1
    Sleep 333
Loop
'>>>
iCount = DestFolder.Items.Count
'Copy the file into the zip folder
DestFolder.CopyHere (strZastavka)
'Keep script waiting until Compressing is done
Do Until DestFolder.Items.Count = iCount + 1
    Sleep 333
Loop
 
 
Set DestFolder = Nothing
Set ShellApp = Nothing

Sub test01()
' Копирование в архив ONS.ZIP
 
Dim ShellApp  As Object, DestFolder As Object
Dim iCount
Dim strPathZagF2$, strPathZagF4$, strPathZagF5$
Dim strPathRab$
 
 
'strPathZagF2 - это имя архива
    strPathZagF2 = "d:\Temp\Архив_Тест_01.zip"
 
'Create empty Zip File
    If Dir(strPathZagF2) <> "" Then Kill strPathZagF2
    Open strPathZagF2 For Output As #1
    Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
    Close #1
    DoEvents
    
    strPathZagF4 = "d:\Temp\Новая папка01\"
    strPathZagF5 = "d:\Temp\Новая папка02\"
 
    Set ShellApp = CreateObject("Shell.Application")
    Set DestFolder = ShellApp.Namespace((strPathZagF2))
 
    iCount = DestFolder.Items.Count
 
'Copy the file into the zip folder
    DestFolder.CopyHere (strPathZagF4)
 
'Keep script waiting until Compressing is done
    Do Until DestFolder.Items.Count = iCount + 1
        DoEvents
    Loop
 
    iCount = DestFolder.Items.Count
'Copy the file into the zip folder
    DestFolder.CopyHere (strPathZagF5)
'Keep script waiting until Compressing is done
    Do Until DestFolder.Items.Count = iCount + 1
        DoEvents
    Loop
 
Set DestFolder = Nothing
Set ShellApp = Nothing
End Sub