Private Sub Command1_Click() 

   Dim TotalFiles As Long 
   Dim CompressedBytes As Long 
   Dim UncompressedBytes As Long 
   Dim CompressionRatio As Integer  
   Dim IsZipFileSpanned As Boolean 
   Dim ResultCode As xcdError  

   Call XceedZip1.License( "your license key" ) 

   ' Set the zip file name (the only property required to be set here) 
   XceedZip1.ZipFilename = "c:\test\My zip file.zip"  

   ' Get the information 
   ResultCode = XceedZip1.GetZipFileInformation(TotalFiles, CompressedBytes, UncompressedBytes, CompressionRatio, IsZipFileSpanned)  

   ' Check the return value 
   If ResultCode <> xerSuccess Then 
      List1.AddItem "Unsuccessful. Error #" & Str(ResultCode) 
   Else 
      List1.AddItem "Successfully retrieved the zip file's info" 
      List1.AddItem "Total number of files: " & Str(TotalFiles) 
      List1.AddItem "Compressed size: " & Str(CompressedBytes) 
      List1.AddItem "Uncompressed size: " & Str(UncompressedBytes) 
      List1.AddItem "Ratio: " & Str(CompressionRatio) & "%" 
      List1.AddItem "Spanned: " & Str(IsZipFileSpanned) 
   End if 
End Sub