Como descomprimir un archivo zip

Post Reply
devwin2010
Posts: 38
Joined: Tue Jul 17, 2007 12:37 pm

Como descomprimir un archivo zip

Post by 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
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

Fabian,

Code: Select all

#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
regards, saludos

Antonio Linares
www.fivetechsoft.com
Post Reply