Вопрос : RedirectStandardOutput не получая весь выход

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:

 1 intResult после этого
                Выходите подводная лодка
            Закончитесь если
        Закончитесь если



        Затемните CMD как новое Threading.Thread (AddressOf GETCMD)
        CMD.Start ()
    Закончите подводную лодку


    Приватная подводная лодка GETCMD ()
        Тусклое CMDprocess как новый процесс
        Тусклое StartInfo как новое System.Diagnostics.ProcessStartInfo


        StartInfo.FileName = «cmd»
        StartInfo.RedirectStandardInput = True
        StartInfo.RedirectStandardOutput = True
        StartInfo.UseShellExecute = ложно
        StartInfo.CreateNoWindow = True
        CMDprocess.StartInfo = StartInfo
        CMDprocess.Start ()

        Тусклый СТАРШИЙ как System.IO.StreamReader = CMDprocess.StandardOutput
        Тусклый SW как System.IO.StreamWriter = CMDprocess.StandardInput

        SW.WriteLine («ftp - s: » & strFtpArgs & ««& прокладка)
        SW.WriteLine («выход»)
        strResults = strResults & возвращения SR.ReadToEnd 'результаты окна командование

        Me.SetText (strResults)
        SW.Close ()
        SR.Close ()




    Подводная лодка конца

    Приватное Sub SetText (ByVal [текст] как шнур)

        Если Me.TextBox1.InvokeRequired после этого
            Тусклый d как новое SetTextCallback (AddressOf SetText)
            Me.Invoke (d, новый предмет () {[текст]})
        Еще
            Me.TextBox1.Text = [текст]
        Закончитесь если
    Закончите подводную лодку

Закончите тип