Como descomprimir un archivo zip

[devwin2010]

Estimados Colegas

como puedo descomprimir un archivo zip directamenete o sea sin que
me muestre el contenido como en el ejemplo de testuzip.prg

desde ya muchas gracias
Fabian
devwin2010@yahoo.com.ar

[Antonio Linares]

Fabian,

Code: Select all  Expand view  RUN

#define FILE_OFFSET   7

function Main()

   local cZipName := "fichero.zip"
   local aFiles := GetZipFiles( cZipName )

   AEval( aFiles, { | aFile | UnZipFile( cZipName, aFile[ 2 ], aFile[ FILE_OFFSET ] ) } )

   MsgInfo( "ok" )

return nil

function GetZipFiles( cZipFile )

   local aFile, aFiles

   if ! IsZip( cZipFile )
      MsgStop( "Esto no parece un fichero ZIP!" )
      return nil
   endif

   aFile  = GetFirstInZip( cZipFile )
   aFiles = {}

   while aFile[ 1 ] == 0
      AAdd( aFiles, aFile )
      aFile = GetNextInZip()
   end
   CloseZipFile()

return aFiles