/Compression/unzip
Feedback.

Function:
You find this example project in your Plugins Download as a Realbasic project file within the examples folder: /Compression/unzip
This example is the version from Thu, 23th Dec 2009.
Notes: Last modified: Thu, 23th Dec 2009

Class Window1
Inherits Window
  // Controls
  ControlInstance
  End ControlInstance
  
  // Event implementations
  Sub Open()
    dim f as FolderItem
    dim z as UnZipMBS
    dim lines(-1) as string
    dim s as string
    dim info as UnZipFileInfoMBS
    
    f=SpecialFolder.Desktop.Child("test.zip")
    z=new UnZipMBS(f)
    
    lines.Append "Global Comment: "+z.Comment
    lines.Append "FileCount: "+str(z.Count)
    
    z.GoToFirstFile
    do
      lines.Append "FileOffset: "+str(z.Offset)
      lines.Append "CurrentFileName: "+z.FileName
      
      info=z.FileInfo
      lines.Append "uncompressedSize: "+str(info.uncompressedSize)
      lines.Append "compressedSize: "+str(info.compressedSize)
      lines.Append "date: "+info.date.ShortDate+" "+info.date.ShortTime
      
      z.OpenCurrentFile
      if z.Lasterror=0 then
        lines.Append "GetLocalExtrafield: "+z.GetLocalExtrafield
        lines.Append "eof: "+str(z.eof)
        lines.Append "Position: "+str(z.Position)
        
        s=z.ReadCurrentFile(100000)
        
        'MsgBox s
        
        lines.Append "eof: "+str(z.eof)
        lines.Append "Position: "+str(z.Position)
        
        z.CloseCurrentFile
        
      end if
      z.GoToNextFile
    loop until z.Lasterror<>0
    
    EditField1.text=Join(lines,EndOfLine)
    
  End Sub
  
  // Methods
  Protected Function str(b as boolean) As string
    if b then
      Return "true"
    else
      Return "false"
    end if
  End Function
End Class

Class App
Inherits Application
End Class

See also:

• /Compression/unzip with folders