'returns True if successful
Private Sub ZipFiles(Files As List, OutFolder As String, OutFileName As String) As Boolean
Dim no As NativeObject
Return no.Initialize("SSZipArchive").RunMethod("createZipFileAtPath:withFilesAtPaths:", _
Array(File.Combine(OutFolder, OutFileName), Files)).AsBoolean
End Sub