Upon entry, destLen is the total size of the destination buffer, which must be at least 0.1% larger than sourceLen plus 12 bytes.

; "savetozip.bb" include file
; by snarkbait
; snarkbait66 @ gmail.com
; needs the correct version of zlib.dll in the current folder
; actually uses a modified build of zlib.dll found here:
; www.winimage.com/zLibDll/zlib123dll.zip
; often named 'zlibwapi.dll' but I change the name to
; zlib.dll (for no good reason other than the previous
; authors of blitz zlib wrappers did so)

; needs the following .decls file
;
; zlib.decls
; .lib "zlib.dll" ; or use "zlibwapi.dll" if you don't change the name
;
; Zlib_zipOpen%( filename$, append ):"zipOpen"
; Zlib_zipOpenNewFileInZip%( fh, filename$, fileinfo*, extrafield_local, size_extrafield_local, extrafield_global, size_extrafield_global, comment$, method, level ):"zipOpenNewFileInZip"
; Zlib_zipWriteInFileInZip%( fh, buf*, buflen):"zipWriteInFileInZip"
; Zlib_zipCloseFileInZip%( fh ):"zipCloseFileInZip"
; Zlib_zipClose%( fh ):"zipClose"
;
; usage:
; success = LoadFolderToZip("subfoldername","destfilename.zip")
;
; folder zipped must be a subfolder of the current running directory
; do not use full path name or trailing backslash
; i.e. LoadFolderToZip("Test","test.zip")
; will load all the files in the subfolder 'Test' to a file called test.zip
; ignores further subfolders, could easily be modified to include them also

Const Z_DEFLATED = 8
Const Z_DEFAULT_COMPRESSION = -1

Const APPEND_STATUS_CREATE = 0
Const APPEND_STATUS_CREATEAFTER = 1
Const APPEND_STATUS_ADDINZIP= 2

Function SaveToZip(filename$, filetozip$, append = APPEND_STATUS_CREATE)
file = Zlib_zipOpen (filename$,append)
If Not file Return False
zipfile = OpenFile(filetozip$)
If Not zipfile Return False
zipsize = FileSize(filetozip$)
fbank = CreateBank(zipsize)
ibank = CreateBank(100)
ReadBytes fbank,zipfile,0,zipsize
Zlib_zipOpenNewFileInZip( file, filetozip$,ibank,0,0,0,0,"",Z_DEFLATED,Z_DEFAULT_COMPRESSION)
Zlib_zipWriteInFileInZip( file , fbank, BankSize(fbank))
Zlib_zipCloseFileInZip( file)
Zlib_zipClose(file)
FreeBank fbank
FreeBank ibank
Return True
End Function

Function LoadFolderToZip(folder$,destfile$)
If FileType(folder$) = 2
a = 0
zipdir = ReadDir(folder$)
Repeat
thisfile$ = NextFile$(zipdir)
If thisfile$ = "" Exit
If FileType(folder$ + "\" + thisfile$) = 1
If a = 0
success = savetozip(destfile$,folder$ + "\" + thisfile$)
If Not success Return False
Else
success = savetozip(destfile$,folder$ + "\" + thisfile$,APPEND_STATUS_ADDINZIP)
If Not success Return False
EndIf
a = a + 1
EndIf
Forever
Return True
Else
Return False
EndIf
End Function

Hilf mir nicht weiter, erstens isses kein BMax und ich hab nur 3 Funktionen:
compress()
compress2()
uncompress()