; --------------------------------------------------
; --
; -- examples/example2.bb
; --
; -- How to open a zip file an extract a file from
; -- it.
; --
; --------------------------------------------------
 
; Include required libraries
Include "../Blitz_Basic_Bank.bb"
Include "../Blitz_File_FileName.bb"
Include "../Blitz_File_ZipApi.bb"
 
; Open the zip file for reading
Local zipIn = ZipApi_Open("example.zip")
 
; Check the zip file was valid
If zipIn = 0 Then
	; Not a valid ZIP file - display error and exit program
	Print "There was an error whilst trying to open the zip file."
	End
EndIf
 
; Extract our file
Local fileName$		= ZipApi_ExtractFile(zipIn, "example.txt")
 
; Print some file information
Print "File was extracted to '" + fileName + "'"
Print "Extracted size : " + FileSize(fileName) + " bytes"
 
; Close & cleanup
ZipApi_Close(zipIn)
DeleteFile(fileName)