RemoveFiles method example for VB

The following code deletes all files ending with ".txt" from the zip file named "c:\test\my test.zip". The example assumes you have a button and an Xceed Zip control on a form named Command1 and XceedZip1 respectively.

XAML Copy Code

XAML	Copy Code
Sub Command1_Click() Dim ResultCode As xcdError Call XceedZip1.License( "your license key" ) ' All properties keep their default values except the two below XceedZip1.FilesToProcess = "*.txt" XceedZip1.ZipFilename = "c:\test\my test.zip" ' Start the delete operation ResultCode = XceedZip1.RemoveFiles ' Check the return value. If ResultCode <> xerSuccess Then MsgBox "Unsuccessful. Error # " & Str(nErr) & " occurred." Else MsgBox "File(s) successfully deleted." End If End Sub


Sub Command1_Click() 
   Dim ResultCode As xcdError  
   Call XceedZip1.License( "your license key" ) 
   ' All properties keep their default values except the two below 
   XceedZip1.FilesToProcess = "*.txt" 
   XceedZip1.ZipFilename = "c:\test\my test.zip"  
   ' Start the delete operation 
   ResultCode = XceedZip1.RemoveFiles  
   ' Check the return value. 
   If ResultCode <> xerSuccess Then 
      MsgBox "Unsuccessful. Error # " & Str(nErr) & " occurred." 
   Else 
      MsgBox "File(s) successfully deleted." 
   End If 
End Sub