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 - http://www.zolli.fr
#
# 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