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 |