API
Documentation
Ressources
Trucs & astuces
Libre
Gabarits
Services
Meilleure résolution
mode 800 x 600
Optimisé pour
IE v.5
Netscape v.6
mais surtout pour
Mozilla v.1
minimum
Membre de Click-FR®, Réseau francophone Paie-Par-Click
Centre Trucs & Astuces
Retrouvez dans cette rubrique, tous les trucs et astuces pour vous faciliter la vie sous l'AGL.
Nombre d'articles consultables : 25 Gardons ce site propre, si vous
jugez ce commentaire irrespectueux, cliquez ici
Ziper et déziper sans aucun OCX
Article du 19/12/2002
Écrit par Bidouille
30/01/2004 par Bidouille
Vous voulez ziper ou déziper des fichiers et malheureusement
les fonctions ZIP du W-Langage génèrent un format propriétaire.
Alors que faire sinon appel à la grosse artillerie d'un ActiveX pour compresser ou décompresser des fichiers au format ZIP ?
Et pourquoi pas ne pas utiliser plus simplement le DDE en attaquant directement un utilitaire comme Winzip.
Voici un petit bout de code tout simple pour ziper ou déziper :
// Déclaration des variables
Attention, comme Winzip est un partagiciel (shareware), je vous conseille Power Archiver (identique et gratuit dans sa version 6) : www.powerarchiver.com.
Zipeur est une chaîne
NomArchive est une chaîne
NomFichier est une chaîne
// Indiquer où se trouve l'exécutable Winzip
Zipeur = "c:/Program Files/Power Archiver/Powerarc6.exe"
// Pour ziper
DDELance(Zipeur + " -a " + NomArchive + " " + NomFichier)
// Pour déziper
DDELance(Zipeur + " -e " + NomArchive)
// That's all !
Possibilité de remplacer PowerArchiver par 7-ZIP qui lui est entièrement gratuit.