Introduzione: In questo articolo vedremo come comprimere e decomprimere i file con il programma WinZip.
Il programma winzip (non gratuito) permette di comprimere uno o più file, tali file compressi saranno contenuti in un unico file, con estensione .zip. Utilizzeremo la parola chiave di vba shell per avviare tale programma con determinati argomenti.
Creazione dell'interfaccia:
Apriamo Microsoft Word, una volta aperto tale programma, inseriamo nel documento due pulsanti, tali oggetti si trovano nella barra degli strumenti di controllo, per visualizzarla, fare click sul menu visualizza, selezionare la voce di menu barre degli strumenti e tra le varie voci fare click sulla voce barre degli strumenti.
Fatto ciò inseriamo due pulsanti, uno avrà il testo Comprimi e l'altro Decomprimi.
Stesura del codice:
Una volta inseriti i pulsanti, facciamo doppio click sul pulsante con la scritta "comprimi", a questo punto verrà aperto l'editor di Visual basic application.
Inseriamo il seguente codice:
Dim Stringa As String
On Error GoTo errore
'i parametri -min (questo sempre per primo) ed a servono a rendere minimizzato l'aggiunta di file.
Dim StrProgrammaWinzip As String
StrProgrammaWinzip = "C:\Programmi\WinZip\WINZIP32.EXE"
Stringa = StrProgrammaWinzip & " -min -a " & "C:\test.zip" & " " & "C:\file.mdb"
'tramite la funzione di vb shell lancio il programma
Shell Stringa
Exit Sub
errore:
MsgBox "Si è verificato il seguente errore:" & Err.Description, vbInformation, App.Title
Exit Sub
La variabile Stringa conterrà il percorso e nome del programma winzip, i parametri -min -a il primo indica che l'operazione di aggiunta file alla comprensione va fatta in modo ridotto, in questo modo non viene notato, mentre il parametro -a dice di aggiunge i file per la compressione.
I successivi valori, indicano il nome del file compresso, con estensione .zip ed il file da comprimere.
Ritorniamo in word, e facciamo doppio click sul pulsante con il testo Decomprimi, verrà aperto di nuovo l'editor di Visual Basic Application.
A questo punto inseriamo il seguente codice:
On Error GoTo errore
Dim Stringa As String
Dim StrProgrammaWinzip As String
StrProgrammaWinzip = "C:\Programmi\WinZip\WINZIP32.EXE"
Stringa = StrProgrammaWinzip & " -e -o " & "C:\test.zip" & " " & "C:\CartellaDecompr"
Shell Stringa
Exit Sub
errore:
MsgBox "Si è verificato il seguente errore: " & Err.Description, vbInformation, App.Title
Exit Sub
La variabile Stringa, avrà come valore, il percorso e nome del programma Winzip, i parametri -e -o, il quale indicano rispettivamente, estrai e sovrascrivi qualora il file che si sta decomprimendo esista già. I due successivi valori, indicano il file compresso da decomprimere e la cartella in cui si vuole decomprimere.
Download esempio
Conclusioni: Questo articolo ha illustrato un modo semplice di come comprimere e decomprimere i file con winzip.