20-03-13, 08:32 PM
السلام عليكم
عندي كود التحم في الدوس من الفيجوال بيسك دوت نت
لكن يضهرلي خطء في الكود
الخطء
هنا
ReadData()
اتمنى الحل
عندي كود التحم في الدوس من الفيجوال بيسك دوت نت
لكن يضهرلي خطء في الكود
كود :
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()
اتمنى الحل