Option Explicit

Dim XceedZip
Set XceedZip = WScript.CreateObject("XceedSoftware.XceedZip.4", "XceedZip_")

XceedZip.ZipFilename = "sample1.zip"

XceedZip.FilesToProcess = "*.*"

If XceedZip.ListZipContents <> 0 Then MsgBox "An error occured!"

WScript.DisconnectObject XceedZip

Set XceedZip = Nothing

Sub XceedZip_ListingFile(ByVal Filename, ByVal Comment, ByVal Size, _
		ByVal CompressedSize, ByVal CompressionRatio, _
		ByVal Attributes, ByVal CRC, ByVal LastModified, _
		ByVal LastAccessed, ByVal Created, _
		ByVal Method, ByVal Encrypted, ByVal DiskNumber, _
		ByVal Excluded, ByVal Reason)
	MsgBox Filename & ": " & CompressedSize & "/" & Size & " bytes."
End Sub