If theRequest.Contains("RequestedFile") = True Then
                WriteToServerLog(" FileTransfer wird gestartet..")
                Dim größe As String = readerClient.ReadString 
 
 'größe der Datei vllt damit was machen..?
 
 
                Dim fn As String = readerClient.ReadString()
                Dim l As Integer = readerClient.ReadInt32()
                Dim b() As Byte = readerClient.ReadBytes(l)
                Dim fs As New FileStream(fn, FileMode.Create, FileAccess.Write, _
                  FileShare.None)
                fs.Write(b, 0, l)
                Me.Label16.Text = größe
                fs.Close()
                WriteToServerLog(" FileTransfer Erfolgreich beendet !")
 
            End If