If theRequest.Contains("RequestedFile") = True Then
                WriteToServerLog(" FileTransfer wird gestartet..")
                Dim Datei As String = theRequest.Remove(0, 4)
                Dim größe As String = readerClient.ReadString
                Dim anzahlPackete As Int16 = (größe / 1024)
                Dim Rest As Int16 = (größe Mod 1024)
                Dim fn As String = readerClient.ReadString()
                Dim l As Integer = readerClient.ReadInt32()
                Me.Fortschritt.Maximum = größe
                Dim i As Int16
                Do
                    Dim b() As Byte = readerClient.ReadBytes(1024)
                    Dim fs As New FileStream(fn, FileMode.Append, _
                      FileAccess.Write, FileShare.None)
                    fs.Write(b, 0, 1024)
                    fs.Close()
                    Me.Fortschritt.Value += 1024
                    i += 1
 
                Loop While Not i = anzahlPackete
 
                Dim b2() As Byte = readerClient.ReadBytes(Rest)
                Dim fs2 As New FileStream(fn, FileMode.Append, _
                  FileAccess.Write, FileShare.None)
                fs2.Write(b2, 0, Rest)
                fs2.Close()
                Me.Fortschritt.Value += Rest
            End If
            Me.Fortschritt.Value = 0