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
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para CA-Clipper Como descomprimir un archivo zip
Fabian,
#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