codice:
Applicazione="7za a -mx=9 -mfb=64 -md=32m "
File_Out="C:\Prova_BCK\Zipped_files\backup1.zip "
File_In="C:\Prova_BCK\DATI"
File_log="c:\Prova_BCK\ziplog.log"
comando=Applicazione&File_Out&File_In & " >> " & File_log


set shell = WScript.CreateObject("WScript.Shell") 
Esito_Zip =Shell.Run(comando,1,true)'linea 189
Set Shell = Nothing