Retour à la FAQ


Compression avec Winzip

Comment zipper des fichiers automatiquement? Sébastien KRECKE

Voici plusieurs procédures utilisant Winzip. Les lignes de commandes proviennent du site :
http://www.winzip.com/xcmdline.htm

 

'Déclaration globale
Public Const CheminWinZip = "C:\Program Files\WinZip\" 'Répertoire ou est installé Winzip

Sub Zip_Un_fichier()
'Cette procédure va compresser le fichiers "Programme.bas" et le placer dans l'archive "C:\tmp\zaza.zip"

Const NomArchive = "C:\tmp\zaza.zip" 'Nom du fichier Zip a créer
Const QuelFichier = "C:\tmp\Programme.bas" 'Nom du fichier à compresser
Shell (CheminWinZip & "winzip32.exe -a " & NomArchive & " " & QuelFichier) 'execution
End Sub

Sub Zip_Plusieurs_fichiers()
'Cette procédure va compresser les fichiers inclus dans le répertoire '"D:\_poubelle\75010199"
'et les placer dans l'archive "C:\tmp\zaza.zip" Const NomArchive = "C:\tmp\zaza.zip" 'Nom du fichier Zip a créer
Const QuelDossier = "D:\_poubelle\75010199" 'Nom du dossier qui comprend
'plusieurs fichiers à compresser( attention ne s'occupe pas des sous répertoires)

Shell (CheminWinZip & "winzip32.exe -a " & NomArchive & " " & QuelDossier) 'execution
End Sub

Sub Zip_Plusieurs_fichiers_AvecTxt()
'Cette procédure va "lire" le fichier "C:\tmp\zaza.txt" et compresser les
'fichiers lus dans l'archive "C:\tmp\zaza.zip"
'Ici le fichier zaza.txt contient
'C:\tmp\test.doc
'C:\tmp\test.zip
'C:\tmp\test.xls
'Attention, une ligne par fichier

Const NomArchive = "C:\tmp\zaza.zip" 'Nom du fichier Zip a créér
Const QuelFichierTexte = "C:\tmp\zaza.txt" 'Nom du fichier comprenant les fichiers à inclure
Shell (CheminWinZip & "winzip32.exe -a " & NomArchive & " @" & QuelFichierTexte) 'execution
End Sub

Sub Zip_ssRép()
'Cette procédure va compresser les fichiers inclus dans le répertoire
'"D:\_poubelle" y compris les sous répertoires
Const NomArchive = "C:\tmp\zaza.zip" 'Nom du fichier Zip a créer
Const QuelDossierAvecSousDossier = "D:\_poubelle" 'Nom du dossier qui contient des sous-dossiers à compresser
Shell (CheminWinZip & "winzip32.exe -a -r " & NomArchive & " " & QuelDossierAvecSousDossier) 'execution
End Sub

Sub Zip_ssRép_avec_Mdp()
'Cette procédure va compresser les fichiers inclus dans le répertoire
'"D:\_poubelle" y compris les sous répertoires
' et ajoute zaza comme mot de passe à l'archive

Const NomArchive = "C:\tmp\zaza.zip" 'Nom du fichier Zip a créer
Const QuelDossierAvecSousDossier = "D:\_poubelle" 'Nom du dossier qui 'contient des sous-dossiers à compresser
Shell (CheminWinZip & "winzip32.exe -min -a -s""zaza"" " & NomArchive & " " & QuelDossierAvecSousDossier) 'execution
End Sub

[top]