Winzip - Come esplodere i file compressi e creare

scompattare file formato zip

vedi questo sito http://www.josevalter.com.br/WinZip.htm

If Dir(App.Path & "\Immagini.zip") <> "" Then
Shell App.Path & "\WZUNZIP.EXE" & " -e " & App.Path & "\Immagini.zip " & App.Path & "\Immagini", vbMaximizedFocus
If Err.Number = 0 Then
Kill App.Path & "\Immagini.zip"
Else
Err.Clear
End If
End If


devi copiare nella stessa directory WZUNZIP.EXE