<Serializable()> _
Public Class cFileSammler
 
    Dim _filebytes()() As Byte
    Dim _filenames() As String
 
    Public Sub New(ByVal ParamArray Files() As String)
 
        ReDim _filebytes(UBound(Files))
        ReDim _filenames(UBound(Files))
        For i As Integer = 0 To Files.Length - 1
            _filebytes(i) = _
            My.Computer.FileSystem.ReadAllBytes(Files(i))
            _filenames(i) = Files(i)
        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
        Return New String(enc.GetChars(_filebytes(index)))
    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
            Return True
        Catch
            Return False
        End Try
    End Function
End Class