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 _______________________________________________ LibreOffice mailing list LibreOffice@lists.freedesktop.org https://lists.freedesktop.org/mailman/listinfo/libreoffice