TkZip

 

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