Imports System.Text
Imports ComponentAce.Compression.ZipForge
Imports ComponentAce.Compression.Archiver
Imports System.IO.MemoryStream
 
#Region "io"
 
    Private Class ioFile
 
        Private fileStream As System.IO.Stream = Nothing
        Private streamWrtier As System.IO.StreamWriter = Nothing
        Private ziparchive As ComponentAce.Compression.ZipForge.ZipForge = _
          Nothing
 
        Public Sub writeLine(ByVal line As String)
            streamWrtier.WriteLine(line)
        End Sub
 
        Public Sub openFile(ByVal Filename As String)
            fileStream = New System.IO.MemoryStream()
            ziparchive = New ZipForge()
            ziparchive.FileName = Filename
            ziparchive.OpenArchive(System.IO.FileMode.Create)
            fileStream = New System.IO.MemoryStream
            streamWrtier = New System.IO.StreamWriter(fileStream)
            streamWrtier.WriteLine("Initialline1")
            ziparchive.AddFromStream("test.txt", fileStream)
            streamWrtier.WriteLine("Initialline2")
        End Sub
 
        Public Sub closeFile()
            streamWrtier.Close()
            streamWrtier.Dispose()
            fileStream.Close()
            fileStream.Dispose()
            ziparchive.CloseArchive()
            ziparchive.Dispose()
        End Sub
 
        Protected Overrides Sub Finalize()
            MyBase.Finalize()
        End Sub
 
        Public Sub New()
 
        End Sub
    End Class
 
#End Region

    Private Sub writetest()
        Dim fi As New ioFile
        fi.openFile("C:\test.zip")
        fi.writeLine("Testline")
        fi.closeFile()
    End Sub