Tweet
DIM szFile AS ASCIIZ * 260, fH AS DWORD, enumZip AS DWORD, MainStr AS STRING
DIM retZip AS LONG, global_info AS unz_global_info_s, unz_file_info AS unz_file_info_s
fH = unzOpen(BYCOPY szFile)
IF fH < 1 THEN FUNCTION = 0: EXIT FUNCTION
CALL unzGetGlobalInfo(fH, global_info)
FOR enumZip = 1 TO global_info.number_entry
IF enumZip = 1 THEN CALL unzGoToFirstFile(fH)
IF enumZip > 1 THEN CALL unzGoToNextFile(fH)
retZip = unzGetCurrentFileInfo(fh, unz_file_info, szFileName, SIZEOF(szFileName), BYVAL 0, 0, BYVAL 0, 0)
retZip = unzOpenCurrentFile(fH)
MainStr = SPACE$(unz_file_info.uncompressed_size)
retZip = unzReadCurrentFile(fH, BYVAL STRPTR(MainStr), unz_file_info.uncompressed_size)
'here MainStr contains the contents of the extracted and inflated file..
CALL unzCloseCurrentFile(fH)
NEXT enumZip
CALL unzClose(fH)
FUNCTION _
unzClose LIB "zlib.dll" ALIAS "unzClose" ( _
BYVAL fh AS DWORD _
) AS LONG
SUB unzipit
IF RTRIM$(pth$)="*ABORT*" THEN EXIT SUB
unzipped=1 'set global so it won't repeat
DIM S1 AS STRING, S1Len AS LONG, RetVal AS LONG, _
ff AS LONG, global_info AS unz_global_info_s, _
fh AS DWORD
DIM unz_file_info AS unz_file_info_s, _
szFileName AS ASCIIZ * 256, sBuf AS STRING, _
sBufLen AS DWORD, _
sTemp AS STRING, _
zipfi AS zip_fileinfo_s
DIM szZipFile AS ASCIIZ * 128
DIM outFile AS ASCIIZ * 256
DIM outfile2 AS ASCIIZ * 256
DIM ZippedFiles AS LONG
DIM LL AS LONG
LOCAL currentdir$,xxx$,pcnt&
LOCAL lType&, lXPos&, lYPos&,lNormalize&
LOCAL C%
LOCAL lresult&
LOCAL test$
currentdir$=CURDIR$
IF RIGHT$(currentdir$,1)="\" THEN currentdir$=LEFT$(currentdir$,LEN(currentdir$)-1)
szZipFile = currentdir$+"\winwu.zip" 'COMMAND$
IF szZipFile = "" THEN
EXIT SUB 'FUNCTION
END IF
IF LEN(DIR$(szZipFile)) = 0 THEN
PRINT "No Zip File"
WHILE INKEY$="":WEND
abort%=1
EXIT SUB
END IF
RetVal = unzOpen(szZipFile)
IF RetVal THEN
fh = Retval
RetVal = unzGetGlobalInfo(fh,global_info)
IF ISFALSE RetVal THEN
ELSE
PRINT "Fail #" + FORMAT$(RetVal)
WHILE INKEY$="":WEND
END IF
RetVal = unzGoToFirstFile(fh)
FOR ZippedFiles = 1 TO global_info.number_entry
IF ISFALSE RetVal THEN
RetVal = unzGetCurrentFileInfo (fh, _
unz_file_info, _
szFileName, _
SIZEOF(szFileName), _
BYVAL 0,_
0,_
BYVAL 0,_
0)
IF ISFALSE RetVal THEN
sBuf = STRING$(unz_file_info.uncompressed_size,0)
RetVal = unzOpenCurrentFile(fh)
IF ISFALSE(RetVal) THEN
RetVal = unzReadCurrentFile(fh,BYVAL STRPTR(sBuf),LEN(sBuf))
unzCloseCurrentFile fh
IF RetVal <> 0 THEN
ff = FREEFILE
LL=INSTR(szFileName,"/")
IF LL THEN
outFile=MID$(szFileName,1,LL)+"\"+MID$(szFileName,LL+1)
ELSE
outFile=szFileName
END IF
IF pth$<>"" THEN
outfile2=pth$+"\"+outfile
outfile=outfile2
END IF
OPEN TRIM$(outFile) FOR BINARY AS ff
PUT #ff,1,sBuf
CLOSE #ff
END IF
ELSE
EXIT FOR
END IF
ELSE
EXIT FOR
END IF
END IF
RetVal = unzGoToNextFile(fh)
'*******insert progressbar here
xxx$=szFileName
pcnt&=ZippedFiles/global_info.number_entry*100
ProgressBoxShow lType&, _
pcnt&, _ 'lPercent&, _
lXPos&, _
lYPos&, _
xxx$, _ '"Copying Programs to "+pth$+". . .", _ 'sText$, _
"Expanding program files", _ 'sTitle$, _
lNormalize&
'****end progressbar to here
NEXT ZippedFiles
END IF
END SUB
Updated the post. Sorry 
#COMPILE EXE "UnZipEx.exe"
#INCLUDE "PBZLIB.inc"
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
FUNCTION PBMAIN () AS LONG
LOCAL StrLen AS LONG, RetVal AS LONG, ff AS LONG, ZippedFile AS LONG
LOCAL hFile AS DWORD
LOCAL aStr AS STRING, UzFileStr AS STRING, TempStr AS STRING
LOCAL zZipFile AS ASCIIZ*260, zFileName AS ASCIIZ*260 'or %MAX_PATH if you #INCLUDE "WIN32API.INC"
LOCAL global_info AS unz_global_info_s, unz_file_info AS unz_file_info_s, zipfi AS zip_fileinfo_s
zZipFile = "xxxxx.zip" ' change this for a zip file you have
hFile = unzOpen(zZipFile)
IF hFile < 1 THEN MSGBOX zZipFile,,"Bad Zip File" : EXIT FUNCTION
RetVal = unzGetGlobalInfo(hFile, global_info)
IF RetVal THEN MSGBOX "Zip Archive bad, Fail #" + FORMAT$(RetVal) : EXIT FUNCTION
MSGBOX "Num Files "+FORMAT$(global_info.number_entry)+CHR$(13)+"Comment Lgth "+FORMAT$(global_info.size_comment),,zZipFile
RetVal = unzGoToFirstFile(hFile) ' get first file handle
FOR ZippedFile = 1 TO global_info.number_entry
IF RetVal THEN RetVal = unzGoToNextFile(hFile) : MSGBOX "Can't get a Handle",,zZipFile : ITERATE ' Try next file
RetVal = unzGetCurrentFileInfo (hFile, unz_file_info, zFileName, SIZEOF(zFileName), BYVAL 0, 0, BYVAL 0, 0)
IF RetVal THEN MSGBOX "Cannot get File Info",,zFileName : ITERATE
'MSGBOX "Compressed size " + FORMAT$(unz_file_info.compressed_size )+ CHR$(13) + _
' "Extracted size " + FORMAT$(unz_file_info.uncompressed_size),,zFileName
RetVal = unzOpenCurrentFile(hFile)
IF RetVal THEN MSGBOX "File is empty",,zFileName + FORMAT$(RetVal) : ITERATE
UzFileStr = SPACE$(unz_file_info.uncompressed_size) ' make a long enough string to hold the file
RetVal = unzReadCurrentFile(hFile, BYVAL STRPTR(UzFileStr), unz_file_info.uncompressed_size)
CALL unzCloseCurrentFile(hFile)
IF RetVal = 0 THEN MSGBOX "Uncompressed length = 0",,zFileName : ITERATE
'MSGBOX "Size = " + FORMAT$(RetVal/1000) + "k",,"Saving: " + zFileName ' size of file
ff = FREEFILE
OPEN zFileName FOR BINARY AS ff
PUT$ #ff, UzFileStr
CLOSE #ff
RetVal = unzGoToNextFile(hFile) ' get next file handle
'DIALOG SEND hDlgProgBar, %PROGBARID, ROUND(ZippedFile/global_info.number_entry *100 ,0), 0 ' update progress bar
NEXT ZippedFile
CALL unzClose(hFile)
MSGBOX zZipFile,,"Archive Closed"
END FUNCTION
'¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
Comment