Le portail francophone de la géomatique

# Exemple de compression tcl avec 7zip (il faut bien sûr installer 7zip)

        # Compresse les fichiers du Répertoire temp dest au format .tar dans repDest
            set fich_dest [eval FME_TempFilename]
            file delete -force $fich_dest
            append fich_dest "_result"
            #set fich_dest $sRepDestTmp
            append sRepDestTmp "/**/*.*"
            set nameFich [FuncFilename $nameTar]
            append fich_dest "/$nameFich.tar"
            puts "\n COMPRESSION des FICHIERS au format .tar"
            # Utilisation de 7zip pour compresser           
            if [ catch {CMD /C $zip a -y -ttar $fich_dest $sRepDestTmp} erreur ] {
                writeToFile "$logErreur" "_Erreur lors de la compression dans le fichier $fich_dest répertoire : $sRepDestTmp. \n $erreur"   
                puts "Erreur lors de la compression dans le fichier $fich_dest répertoire : $sRepDestTmp"
                # La chaîne est arrêtée en cas d'erreur
                return 1
            }