' Zip a file Public Function Zip() As Boolean Dim lcFile As String = "" Dim llSuccess As Boolean = False Dim lnReturn As Double = 0 Dim loByte(21) As Byte Dim loObject As Object Dim loDestinationFolder As Shell32.Folder Dim loFile As Shell32.FolderItem Dim loProcess As Framework.ProcessFile = New Framework.ProcessFile(oApp) Dim loShell As Shell32.Shell = New Shell32.Shell Dim loSourceFolder As Shell32.FolderThe loShell line before was:
Dim loShellClass As Shell32.ShellClass = New Shell32.ShellClassThis has resolved the issue.