Dim myZipFile as ABZipContent
listview1.Clear
counter = myzip.ABListZip(sdRoot & "myZipOneFile.zip")
For a = 0 To counter - 1
myZipFile = myZip.ABGetListItem(a)
listview1.AddTwoLines(myZipfile.Name, "Size: " & MyZipfile.Size & " bytes Compressed Size: " & myzipFile.CompressedSize & " bytes")
Next