Sub AllToOne(ByVal Files As String(), ByVal NewFile As String)
        Dim FStrNew, FStr As FileStream
        Dim BRead As BinaryReader
        Dim BWrNew As BinaryWriter
 
        Dim F As String
 
        FStrNew = New FileStream(NewFile, FileMode.Create)
        BWrNew = New BinaryWriter(FStrNew)
 
        Dim intZähler As Integer
 
        For Each F In Files
            intZähler = intZähler + 1
 
            FStr = New FileStream(F, FileMode.Open)
 
            BRead = New BinaryReader(FStr)
 
            If intZähler > 1 Then BWrNew.Write( _
              System.Text.Encoding.Default.GetBytes("@" + _
              intZähler.ToString.Trim + "#"))
            BWrNew.Write(BRead.ReadBytes(FStr.Length))
 
            BRead.Close()
        Next
 
        BWrNew.Close()

 For i = 0 To Files.GetUpperBound(0)                '5 Dateien auslesen
            If i > 0 Then ' next i               'selbstentpacker.exe wird _
              nicht benötigt
                lngDateianfang = strGesamteDatei.IndexOf("@" + (i + _
                1).ToString.Trim + "#") + 3 'Anfang der auszulesenden Datei
                lngDateiEnde = strGesamteDatei.IndexOf("@" + (i + _
                2).ToString.Trim + "#")  'Ende der auszulesenden Datei
 
                If i = Files.GetUpperBound(0) Then lngDateiEnde = _
                  Datei.BaseStream.Length 'Bis Dateiende lesen
 
                Datei.BaseStream.Position = lngDateianfang      'Am Dateianfang 
                ' anfangen
 
                Bytes = Nothing     'Alte Daten löschen, falls vorhanden
                Dim B As Integer = lngDateiEnde - lngDateianfang        'Anzahl 
                ' der zu lesenden Bytes
 
                Bytes = Datei.ReadBytes(B)                  'Bytearray füllen
 
                Dim bw As New BinaryWriter(New IO.StreamWriter(Files( _
                  i)).BaseStream)
 
                bw.Write(Bytes)
                bw.Close()
            End If
        Next i
 
        Datei.Close()