[VBS] Creare un log dell'attività con 7zip

[gpasquali]

Ciao ragazzi,

sto realizzando uno script in Vbscript che effettua la compressione di alcune cartelle con 7zip (per poterne poi effettuare il backup).

lo script funziona, ma vorrei creare un log che elenchi i files compressi, ma non ci riesco!

7zip elenca i files compressi sul video, come posso ridirigere quest'informazione su un file ?
Lo script uasto è:

...

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

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

...

ho provato ad inserire il classico comando di redirezione ">log.txt" alla fine della stringa comando ma la cosa non funziona!
Qualcuno può aiutarmi?

Grazie

[fabio309]

Il file c:\winzip.log che viene creato e gestito in automatico di può essere si aiuto?

[gpasquali]

Ciao Fabio, grazie per la risposta, ma sinceramente non l'ho capita.

Il programma di compressione che sto usando è "7-zip" che è molto flessibile e con un alto rate di compressione.

Lo eseguo con un Vbscript e quidn nel modo seguente,

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

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

MA NON HO TROVATO e non mi sembra esista il file che mi hai citato. (PROBABILMENTE si riferisce al noto winzip) che purtrtoppo non posso usare,

Esiste un modo per riderigere l'output dal video ad un file nel caso di esecuzione da SHELL?

Grazie

[fabio309]

opss non conosco 7-zip, ma pensavo si comportasse allo stesso modo...sorry

[wallrider]

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

[gpasquali]

Grazie...
ma sembra non funzionare.

Lo zip viene cioè creato, ma continuo a vedere a video tutte le infomazioni sui files che vengono compressi e non viene creato nessun file.

Ho praticamente incollato le righe che mi ha suggerito

Grazie.

[MItaly]

Esito_Zip = Shell.Run("%comspec% /c " & comando & " > c:\cartella\nomefile.log", 1, true)

[gpasquali]

OK... ora funziona !!!! grazie mille!!!!!

[MItaly]

Prego; ciao!