Mes: septiembre 2020

Descomprimir ficheros ZIP con Windev

// Tres parámetros desde comandos
// [1] - zipPath - ubicación del archivo a descomprimir
// [2] - zipName - nombre del archivo a descomprimir
// [3] - zipExtPath - ubicación de descompresión del archivo zip

zipPath is string = CommandLine(1)
zipName is string = CommandLine(2)
zipExtPath is string = CommandLine(3)

IF fFileExist(zipPath+"\"+zipName) THEN
   IF NOT fDirectoryExist(zipExtPath) THEN
      fMakeDir(zipExtPath)
   END

   zipOpen("zipArchive", zipPath+"\"+zipName)
   zipExtractAll("zipArchive", zipExtPath)
   Info("Zip descomprimido")
ELSE
    Info("Zip no encontrado"+CR+"ZipPath: "+zipPath+CR+"ZipName:         "+zipName+CR+"ZipExtractPath: "+zipExtPath)
END