For i As Integer = 0 To client.ReceiveBufferSize
                        Dim receivebytes() As Byte = reader.ReadBytes(1)
                        My.Computer.FileSystem.WriteAllBytes("C:\abc.txt", _
                          receivebytes, True)
                    Next

     client.Client.SendFile(pfad, Nothing, Nothing, _
       TransmitFileOptions.UseDefaultWorkerThread)