Imports System.IO.Compression
 
<Serializable()> _
Public Class cFileSammler
 
    Dim _Filebytes()() As Byte
    Dim _Filenames() As String
    Dim _IsCompressed() As Boolean
 
    Public Sub New(ByVal ParamArray Files() As String)
 
        ReDim _Filebytes(UBound(Files))
        ReDim _Filenames(UBound(Files))
        ReDim _IsCompressed(UBound(Files))
 
        For i As Integer = 0 To Files.Length - 1
            Dim sin As New IO.FileStream(Files(i), IO.FileMode.Open, _
              IO.FileAccess.Read)
            Dim memstream As New IO.MemoryStream
            Using Compress As GZipStream = _
                     New GZipStream(memstream, CompressionMode.Compress)
                sin.CopyTo(Compress)
            End Using
            _Filebytes(i) = memstream.ToArray
            If sin.Length < _Filebytes(i).Length * 1.2 Then
                _Filebytes(i) = My.Computer.FileSystem.ReadAllBytes(Files(i))
                _IsCompressed(i) = False
            Else
                _IsCompressed(i) = True
            End If
            _Filenames(i) = Files(i)
            sin.Close() : sin.Dispose()
            memstream.Dispose()
        Next i
    End Sub
 
    Public Function GetFile(ByVal index As Integer) As Byte()
        Return _filebytes(index)
    End Function
 
    Public Function Gettext(ByVal index As Integer, ByVal enc As _
      System.Text.Encoding) As String
        If _IsCompressed(index) Then
            Dim compressed_stream As New IO.MemoryStream(_Filebytes(index))
            Dim decompressed_stream As New IO.MemoryStream
            Using decompress As GZipStream = _
                    New GZipStream(compressed_stream, _
                    CompressionMode.Decompress)
                decompress.CopyTo(decompressed_stream)
            End Using
            Dim decompressed_bytes() As Byte = decompressed_stream.ToArray
            Return New String(enc.GetChars(decompressed_bytes))
        Else
            Return New String(enc.GetChars(_Filebytes(index)))
        End If
    End Function
 
    Public Function GetFileName(ByVal index As Integer) As String
        Return _filenames(index)
    End Function
 
    Public Function Speichern(ByVal File As String) As Boolean
        Try
            Dim fm As New _
              Runtime.Serialization.Formatters.Binary.BinaryFormatter
            Dim fs As New IO.FileStream(File, IO.FileMode.Create)
            fm.Serialize(fs, Me)
            fs.Close() : fs.Dispose()
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function
 
    Public Function Laden(ByVal File As String) As Boolean
        Try
            Dim fm As New _
              Runtime.Serialization.Formatters.Binary.BinaryFormatter
            Dim fs As New IO.FileStream(File, IO.FileMode.Open)
            Dim cFs As cFileSammler = CType(fm.Deserialize(fs), cFileSammler)
            Me._filenames = cFs._filenames
            Me._Filebytes = cFs._Filebytes
            Me._IsCompressed = cFs._IsCompressed
            fs.Close() : fs.Dispose()
            Return True
        Catch
            Return False
        End Try
    End Function
End Class