' Variablen für einhehende Daten
        Dim sFnIn As String
        Dim iIn As Integer
        Dim bBytesRecivedIn() As Byte
        Dim fsIn As FileStream
 
        client = New TcpClient
        client.Connect(SetIPAdress, setPort)
        Stream = client.GetStream()
 
        'networkstream binden
        Stream = client.GetStream()
 
        Writer = New BinaryWriter(Stream)
        Reader = New BinaryReader(Stream)
 
        Try
            If Reader.ReadString = ConnectOK Then
                Writer.Write(SendFiles)
                Do
                    ReDim bBytesRecivedIn(255)
                    sFnIn = Reader.ReadString
                    Anzeigen.AddToLog(sFnIn)
                    If sFnIn = AllSend Then
                        Exit Do
                    End If
                    iIn = Reader.ReadInt32
                    Anzeigen.AddToLog(CStr(iIn))
                    fsIn = New FileStream(setTransPath & sFnIn, _
                      FileMode.Create, FileAccess.Write)
                    While Connection.Receive(bBytesRecivedIn, SocketFlags.None)
                        fsIn.Write(bBytesRecivedIn, 0, iIn)
                    End While
                    fsIn = Nothing
                Loop While (client.Connected)
            End If
        Catch InputOutputException As Exception
            Anzeigen.AddToLog(InputOutputException.ToString)
        End Try

        ' Variablen für ausgehende Daten
        Dim fsOut As FileStream
        Dim bBytesSendOut As [Byte]()
        Dim bBufferSend As Integer
        Dim diOut As DirectoryInfo
        Dim fiOut As FileInfo()
        Dim fiTempOut As FileInfo
 
        ' Variablen für eingehende Daten    
        Dim theRequest As String = ""
 
        While True
            Try
                Listener = New TcpListener(Net.IPAddress.Any, setPort)
                Listener.Start()
 
                Connection = Listener.AcceptSocket()
                SocketStream = New NetworkStream(Connection)
 
                Writer = New BinaryWriter(SocketStream)
                Reader = New BinaryReader(SocketStream)
 
                ' Verbindung bestätigen
                Writer.Write(ConnectOK)
                Try
                    Do
                        Select Case theRequest = Reader.ReadString
                            ' Wenn aufgefordert wurde alle Dateien zu senden
                            Case SendFiles
                                diOut = New DirectoryInfo(setTransPath)
                                fiOut = diOut.GetFiles
                                For Each fiTempOut In fiOut
                                    ReDim bBytesSendOut(255)
                                    fsOut = New FileStream(setTransPath & _
                                      fiTempOut.Name, FileMode.Open, _
                                      FileAccess.Read, FileShare.Read)
                                    Writer.Write(fiTempOut.Name)
                                    Writer.Write(fiTempOut.Length)
                                    While (bBufferSend = fsOut.Read( _
                                      bBytesSendOut, 0, fiTempOut.Length))
                                        Connection.Send(bBytesSendOut, _
                                        SocketFlags.None)
                                    End While
                                    fsOut = Nothing
                                Next
                                Writer.Write(AllSend)
                        End Select
                    Loop While (theRequest <> Disconnect AndAlso _
                      Connection.Connected)
                Catch ex As Exception
                    ' Fehler in der Übertragung
                Finally
                    Writer.Close()
                    Reader.Close()
                    SocketStream.Close()
                    Connection.Close()
                End Try
            Catch InputOutputException As Exception
                ' Ausnahme in der Übertragung
            Finally
                Listener.Stop()
                Writer = Nothing
                Reader = Nothing
                SocketStream = Nothing
                Connection = Nothing
                Listener = Nothing
                theRequest = ""
            End Try
        End While