How to pack a proper zip file with Basic

[Oliver Brinzing]

Hi Heiko,

following code works for me to create a new zip archive and add a file

Regards
Oliver

OPTION EXPLICIT

Sub Test()
	
	Dim oZipArchive as Variant
  	Dim aArg As New com.sun.star.beans.NamedValue
	Dim SURL as String
	Dim sFile as String
	
	sURL = ConvertToURL("D:\TEMP\")
	oZipArchive = createUnoService("com.sun.star.packages.Package")

     aArg.Name = "PackageFormat"
     aArg.Value = True
     oZipArchive.initialize(Array(sURL & "test.zip", aArg))

	sFile = "test.txt"
	Call AddFiletoZipArchive(oZipArchive, sURL, sFile)

End Sub

Sub AddFiletoZipArchive(oZipArchive as Object, ByVal sUrl as String, ByVal sFile as String)

	On Local Error Goto ErrorHandler

	Dim oSimpleFileAccess as Object
	Dim oInputStream as Object
	Dim oStream as Object
	Dim oPosition as Object
	Dim mArgs(0) as Variant

	mArgs(0) = False

	oStream = oZipArchive.createInstanceWithArguments(mArgs())
	oSimpleFileAccess = CreateUnoService("com.sun.star.ucb.SimpleFileAccess")
	oInputStream = oSimpleFileAccess.openFileRead(sURL & sFile)
	oStream.setInputStream(oInputStream)

	oPosition = oZipArchive.getByHierarchicalName("")
	oPosition.insertByName(sFile, oStream)
	oZipArchive.commitChanges()
	oInputStream.closeInput()

	Exit Sub
ErrorHandler:
	MsgBox Err() & " - " & Error() & " - Row: " & Erl()
End Sub