Zip capability

example()
End

;-------------------------------------------
Function example()
;-------------------------------------------
	zipexedir$ = "E:\Projects\R4D\files\TLA\sys\"
	sourcedir$ = "E:\Projects\R4D\files\Projects\Example\"
	destfile$ = "C:\Example.zip"
	ZipFolder(zipexedir$,sourcedir$,destfile$)
End Function

;-------------------------------------------
Function ZipFolder(zipexedir$,sourcedir$,destfile$)
;-------------------------------------------
	If Right$(zipexedir$,1)<>"\" Then zipexedir$ = zipexedir$ + "\" 
	If Right$(sourcedir$,1)<>"\" Then sourcedir$ = sourcedir$ + "\" 
	doscommand$ = zipexedir$ + "7z.exe a -r -tzip " + destfile$ + " " + sourcedir$
	ExecFile "command /c "+ doscommand$
End Function

;-------------------------------------------
Function ZipFolder(zipexedir$,sourcedir$,pfile$,destfile$)
;-------------------------------------------
Local fileout, doscommand$

	If FileType(destfile$)= 1 Then DeleteFile destfile$
	If Right$(zipexedir$,1)<>"\" Then zipexedir$ = zipexedir$ + "\" 
	If Right$(sourcedir$,1)<>"\" Then sourcedir$ = sourcedir$ + "\" 
	
	pfile$ = Chr$(34) + pfile$ + Chr$(34)
	sourcedir$ = Chr$(34) + sourcedir$ + Chr$(34)
	destfile$ = Chr$(34) + destfile$ + Chr$(34)

	fileout = WriteFile("filelist.txt") 
	WriteLine(fileout, pfile$) 
	WriteLine(fileout, sourcedir$) 
	CloseFile(fileout)

	doscommand$ = zipexedir$ + "7za.exe a -r -tzip " + destfile$ + " @filelist.txt"
	ExecFile "command /c " + doscommand$ 

End Function

; "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:
; http://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 

	batfile$ = "Export.bat"
	fileout = WriteFile(batfile$) 
	doscommand$ = "@echo PLEASE WAIT . . ." ; <- your commands here
	WriteLine(fileout, doscommand$) 
	CloseFile(fileout)
	Delay 500
	api_ShellExecute(hWnd, "", batfile$, 0, "", SW_HIDE)