Public Sub sendFile(ByVal client As Socket)
        Dim filename As String = "Sonnenuntergang.jpg"
        Dim FStream As New FileStream("C:\Dokumente und Einstellungen\All" & _
          "Users\Dokumente\Eigene Bilder\Beispielbilder\" & filename, _
          FileMode.Open, FileAccess.Read, FileShare.Read)
        Dim SReader As New StreamReader(FStream)
        Dim sText As String = SReader.ReadToEnd
        Dim filedata As String = "file|" & filename & "|" & sText
 
        Dim laenge As String = filedata.Length + _
          filedata.Length.ToString.Length + 2
        Dim data As String = "incomingfile|" & laenge
 
        Dim sendData As String = "$" & data.Length & "$" & data
        Dim message() As Byte = Encoding.ASCII.GetBytes(sendData)
        client.Send(message)
 
        'die Datei senden
        Dim sendFile As String = "$" & data.Length & "$" & filedata
        Dim messageFile() As Byte = Encoding.ASCII.GetBytes(sendFile)
        client.Send(messageFile)
    End Sub

            '########## File Länge ############
            If splitData(0).Equals("incomingfile") Then
                Console.WriteLine("Buffer für File neu einstellen")
                ReDim bytes(splitData(1))
            End If
 
If splitData(0).Equals("file") Then
                Dim filename As String = splitData(1)
                Console.WriteLine("Verarbeite File")
                Dim FStream As New FileStream("C:\XXX" & filename, _
                  FileMode.Create, _
                    FileAccess.Write, FileShare.Write)
                Dim SWriter As New StreamWriter(FStream)
 
                Dim start As Int32 = data.IndexOf("|", 5) + 1
                SWriter.Write(data.Substring(start))
                SWriter.Close()
                MessageBox.Show("Datei empfangen!", "Filetransfer", _
                  MessageBoxButtons.OK)
            End If