WinZip functions WinZip Command Line Copyright WinZip Computing, Inc.
Funciones
Real ZipAdd(Text inpPth, Text outPth)Text ZipPth = "c:/ARCHIV~1/WinZip/wzzip"; // Executable path//////////////////////////////////////////////////////////////////////////////
Real ZipAdd(Text inpPth, // Input file path
Text outPth) // Output zip file path
//////////////////////////////////////////////////////////////////////////////
{
Text zipDos = Replace(ZipPth,"/","\\")+" ";
Text inpDos = Replace(inpPth,"/","\\");
Text outDos = Replace(outPth,"/","\\");
Real sysExe = System(zipDos+ // Executable
"-a -ex "+ // Options add maximum
outDos+" "+ // Output zip file path
inpDos); // Input file path
sysExe
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Add inpPth file to outPth zip file with maximum compression.",
ZipAdd);
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// FILE : zip.tol
// AUTHOR : http://www.asolver.com
// PURPOSE : WinZip functions
// WinZip Command Line Copyright WinZip Computing, Inc.
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
// CONSTANTS
//////////////////////////////////////////////////////////////////////////////
Text ZipPth = "c:/ARCHIV~1/WinZip/wzzip"; // Executable path
//////////////////////////////////////////////////////////////////////////////
// FUNCTIONS
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
Real ZipAdd(Text inpPth, // Input file path
Text outPth) // Output zip file path
//////////////////////////////////////////////////////////////////////////////
{
Text zipDos = Replace(ZipPth,"/","\\")+" ";
Text inpDos = Replace(inpPth,"/","\\");
Text outDos = Replace(outPth,"/","\\");
Real sysExe = System(zipDos+ // Executable
"-a -ex "+ // Options add maximum
outDos+" "+ // Output zip file path
inpDos); // Input file path
sysExe
};
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Add inpPth file to outPth zip file with maximum compression.",
ZipAdd);
//////////////////////////////////////////////////////////////////////////////Ink.Watercolor construye las páginas del sitio web inkwatercolor.com
2015 asolver.com | Aviso legal | XHTML | Δ Θ Ξ | Creative Commons | Mapa y funciones del sitio
