Class App Inherits Application

Const kEditClear = "&Löschen"

Const kFileQuit = "Beenden"

Const kFileQuitShortcut = ""

EventHandler Sub Open() dim f as FolderItem = SpecialFolder.Desktop.Child("test.zip") dim folder as FolderItem = SpecialFolder.Pictures // some folder with images dim files() As string dim c as integer = folder.count for i as integer = 1 to c dim file as FolderItem = folder.TrueItem(i) if file.Directory then // we go here for this example only one level deep dim subfolder as FolderItem = file dim cc as integer = subfolder.count for ii as integer = 1 to cc dim subfile as FolderItem = subfolder.TrueItem(ii) if subfile.name.Right(4) = ".jpg" then // here we pass a relative path files.Append subfolder.name+"/"+subfile.name end if next else if file.name.Right(4) = ".jpg" then // just padd a file name for files directly in source folder files.Append file.name end if end if next dim ErrorMessage as string dim e as integer = ZipMBS.CompressFiles(f, folder, files, errorMessage) MsgBox "Error: "+str(e) End EventHandler

End Class

MenuBar MenuBar1

MenuItem FileMenu = "&Ablage"

MenuItem FileQuit = "#App.kFileQuit"

MenuItem EditMenu = "&Bearbeiten"

MenuItem EditUndo = "&Rückgängig"

MenuItem UntitledMenu1 = "-"

MenuItem EditCut = "&Ausschneiden"

MenuItem EditCopy = "&Kopieren"

MenuItem EditPaste = "&Einfügen"

MenuItem EditClear = "#App.kEditClear"

MenuItem UntitledMenu0 = "-"

MenuItem EditSelectAll = "&Alles auswählen"

End MenuBar