[sippar]

السلام عليكم
عندي كود التحم في الدوس من الفيجوال بيسك دوت نت
لكن يضهرلي خطء في الكود

كود :

If Dir("c:\Temp.dos") <> "" Then Kill("c:\Temp.dos")
        If TextBox1.Text = "clr" Then
            TextBox2.Text = ""
            Exit Sub
        End If
        Process.Start("cmd.exe /c " & TextBox1.Text & "> c:\Temp.dos", AppWinStyle.Hide)
        Try
            ReadData()
            Dim OpenResult As New StreamReader("c:\Temp.dos")
            TextBox2.Text = OpenResult.ReadToEnd
            OpenResult.Close()
        Catch ex As FileNotFoundException
            GoTo ReadData
        Catch ex2 As IOException
            GoTo ReadData
        End Try
        Application.DoEvents()

الخطء

هنا
ReadData()

اتمنى الحل