Con il codice seguente sono riuscito a:
- eseguire un controllo sui file zip all'interno della cartella;
- eseguire la decompressione degli stessi.
Tutto ciò funziona, ma nel caso ci fosse qualche file danneggiato non lo decomprime e passa a quello successivo.codice:Sub UnZip() Set objShell = CreateObject("WScript.Shell") objProc = objShell.Run("unzip -t Y:\Cartella\*.zip", 0, True) objProc = objShell.Run("unzip -d Y:\Cartella\Output Y:\Cartella\*.zip", 0, True) End Sub UnZip()
Io, invece, vorrei che se trova un file danneggiato proceda in questo modo:
- Termina lo shell;
- Elimina la cartella di Output.
Come faccio ad intercettare se un file è danneggiato ?!

Rispondi quotando
