Kroc - 09 02 2005 : Le but de ce script est de compresser ou décompresser des données au format ZIP en utilisant la librairie TclZip.
Et voici le premier jet de TkZip :
################################################################################ # # Zippeur / Dézippeur basé sur TclZip # # Copyright © 2005 - David Zolli # # Ce script est distribué sous licence NOL : http://wfr.tcl.tk/nol # # Version 1.0 - Février 2005 # ################################################################################ package require TclZip if {![file exists [lindex $argv 0]]} { set message "Utilisation : TkZIP cible\ \nsi la cible est un fichier zip, il sera décompressé\ \nsinon, la cible sera compressée en \"cible.zip\"." tk_messageBox -message $message -type ok -icon warning exit } elseif {[string tolower [file extension [lindex $argv 0]]] eq ".zip"} { ::tclzip::unZip [lindex $argv 0] } else { ::tclzip::Zip [lindex $argv 0] } exit