vba - metodi - conversione

tramite VBA é possibile eseguire i comandi DOS Winzip e 7-zip

Winzip

compirmi

Shell "C:\Program Files\WinZip\WINZIP64.EXE comando -parametri path\filedestinazione.zip file/directory"

estrai

Shell "C:\Program Files\WinZip\WINZIP64.EXE comando -parametri file.zip directory"

se da errore usa 7-zip

esempio: uso di winzip per comprimere un file
Dim fileorigine

fileorigine = "C:\Users\AC404\Downloads\testo origine.txt"

Dim filedetinazione

filedetinazione = "C:\Users\AC404\Downloads\file destinazione.zip"

Dim software

software = "C:\Program Files\WinZip\WINZIP64.EXE"

Shell software & " -min -a "& Chr(34) & filedetinazione & Chr(34) & " " & Chr(34) & fileorigine & Chr(34)

uso Chr(34) per mettere i nomi dei file con le " per evitare errori se hanno spazio nel nome

7-zip

Shell "C:\Program Files\7-Zip\7z.exe comando -parametri path\filecompresso path\file/directory

esempio: scompatto directory usando il nome dell directory per il file zip
rootarchivio = "C:\Temp\"
nomedirectory = "Directory_temp"
Shell "C:\Program Files\7-Zip\7z.exe x -o" & Chr(34) & rootarchivio & nomedirectory & Chr(34) & " " & Chr(34) & rootarchivio & nomedirectory & ".zip" & Chr(34)

document.write(document.title.substr(0,document.title.indexOf("-")).trim().toUpperCase() + " - " + document.title.substr(document.title.indexOf("-")+1).trim().toLowerCase())