weirdly acting binary writer

[iwdu15]

hi...im creating my own installation program using a binary reader and
filestreams. the problem is trying to get each file into a single file. for
reasons i cant figure out, it only write the first file i select to the main
file, even if the array contains more than 1 file....i cant seem to figure it
out so if anyone has any help, thatd b great
Try

Dim fsOutput As New FileStream(Path & "\" & strName & ".fif",
FileMode.Append, FileAccess.Write)
Dim sw As New StreamWriter(fsOutput)

Dim fsEULA As New FileStream(Path & "\Config.dat",
FileMode.Create, FileAccess.Write)
Dim swEULA As New StreamWriter(fsEULA)

Dim fs As FileStream

Dim fsOut As FileStream
Dim bw As BinaryWriter

Dim count As Integer = 0

Dim ReadBytes As Byte()

Dim numBytes As Integer = 0

For count = 0 To arrFiles.Length - 1

fs = New FileStream(arrFiles(count), FileMode.Open,
FileAccess.Read)

fsOut = New FileStream(Path & "\DataFile.dat",
FileMode.Append, FileAccess.Write)
bw = New BinaryWriter(fsOut)

Me.tsLblinfo.Text = "Adding File " &
arrFiles(count).Substring(arrFiles(count).LastInde xOf("\") + 1) & " to
installer"

ReDim ReadBytes(fs.Length)
fs.Read(ReadBytes, 0, fs.Length)

Application.DoEvents()

For Each bt As Byte In ReadBytes

bw.Write(bt)

If Me.tsprogInfo.ProgressBar.Value + 1 <=
Me.tsprogInfo.ProgressBar.Maximum Then

Me.tsprogInfo.ProgressBar.Value += 1

ElseIf Me.tsprogInfo.ProgressBar.Value + 1 >
Me.tsprogInfo.ProgressBar.Maximum Then

Me.tsprogInfo.ProgressBar.Value =
Me.tsprogInfo.ProgressBar.Maximum

Else

Me.tsprogInfo.ProgressBar.Value = 0

End If

Next

sw.WriteLine(arrFiles(count) & "|" & fs.Length)

fs.Close()

Array.Clear(ReadBytes, 0, ReadBytes.Length)

fsOut.Flush()
bw.Flush()
bw.Close()
fsOut.Close()

Next

swEULA.WriteLine(Info.strEULA)

fsEULA.Flush()
swEULA.Flush()
swEULA.Close()
fsEULA.Close()

fsOutput.Flush()
sw.Flush()
sw.Close()
fsOutput.Close()

MsgBox("Installer Created! Thank You!")

Catch ex As Exception

My.Computer.Audio.PlaySystemSound(Media.SystemSoun ds.Exclamation)
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK,
MessageBoxIcon.Error)

Finally

Me.btnnext.Enabled = True

End Try

--
-iwdu15