XceedZipItems object example for VB

Visual Basic allows you to access the XceedZipItems collection using the For Each statement, as in this example:

Visual Basic Copy Code

Visual Basic	Copy Code
' Make sure to Place an XceedZip control on a form and name it 'xZip' ' Also place a listbox on the form and name it 'List1' Dim ZipItems As XceedZipItems ' The collection Dim ZipItem As XceedZipItem ' One item Dim ResultCode As xcdError ' To keep return value Call xZip.License( "your license key" ) xZip.ZipFilename = "c:\temp\test.zip" ' Specify zip file to list ResultCode = xZip.GetZipContents(ZipItems, xcfCollection) ' Fill collection If ResultCode = xerSuccess then For Each ZipItem In ZipItems List1.AddItem ZipItem.Filename & " (" & ZipItem.Size & " bytes)" Next ZipItem Else MsgBox "Error: " & xZip.GetErrorDescription(xvtError, ResultCode) End If


' Make sure to Place an XceedZip control on a form and name it 'xZip'
' Also place a listbox on the form and name it 'List1' 
Dim ZipItems As XceedZipItems ' The collection
Dim ZipItem As XceedZipItem ' One item
Dim ResultCode As xcdError ' To keep return value 
Call xZip.License( "your license key" ) 
xZip.ZipFilename = "c:\temp\test.zip" ' Specify zip file to list 
ResultCode = xZip.GetZipContents(ZipItems, xcfCollection) ' Fill collection 
If ResultCode = xerSuccess then
   For Each ZipItem In ZipItems 
      List1.AddItem ZipItem.Filename & " (" & ZipItem.Size & " bytes)" 
   Next ZipItem 
Else
   MsgBox "Error: " & xZip.GetErrorDescription(xvtError, ResultCode) 
End If