اجرای فرامین داس تحت vb.net

[goldpower]

می خوام این دستور زیرو دیگه در داس تایپ نکنم تا اجرا بشه و یه برنامه با وی بی بنویسم که با فشردن یه باتون
خودش این دستور رو اتوماتیک ببره داخل داس اجرا کنه .


مثلا می خوام یه فایل رو از یه درایو به یه رایو دیگه کپی کنم

[barnamenevisjavan]

http://www.barnamenevisjavan.com/post/480

[Saman_12]

چند وقت پیش در موردش بحث شد (تایپیک رو پیدا نکردم) :
Shell("cmd.exe /c mkdir c:\a", AppWinStyle.Hide)

[goldpower]

Dim p As New Process()
p.StartInfo.CreateNoWindow = True
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.Arguments = "/c " & txtCommand.Text
p.StartInfo.UseShellExecute = False
p.StartInfo.RedirectStandardOutput = True
p.StartInfo.RedirectStandardError = True
p.Start()

[Saman_12]

Dim p As New Process()
p.StartInfo.CreateNoWindow = True
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.Arguments = "/c " & txtCommand.Text
p.StartInfo.UseShellExecute = False
p.StartInfo.RedirectStandardOutput = True
p.StartInfo.RedirectStandardError = True
p.Start()

آهان شما میدونستید میخواستید ما رو امتحان کنید! بله بله بله...

[arash020]

سلام

اجرای دستور Dos و دبدن نتیجه در برنامه :

Function ExecuteDos(ByVal Comm As String)
Dim objShell, objExecObject
objShell = CreateObject("WScript.Shell")
objExecObject = objShell.Exec("%comspec% /c " & Comm)
MsgBox(objExecObject.StdOut.ReadAll())
End Function
'------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'------استفاده از روش 1-------
Dim objShell, objExecObject
objShell = CreateObject("WScript.Shell")
objExecObject = objShell.Exec("%comspec% /c " & TextBox1.Text)
MsgBox(objExecObject.StdOut.ReadAll())
'ExecuteDos(TextBox1.Text)
'-------------------------------
'----------روش شماره 2---------
' On Error GoTo er
' Dim psi As System.Diagnostics.ProcessStartInfo = New System.Diagnostics.ProcessStartInfo(TextBox1.Text, TextBox2.Text)
' psi.UseShellExecute = False
' psi.RedirectStandardOutput = True
' psi.CreateNoWindow = True
' Dim OutPut_String As String
' Dim proc As System.Diagnostics.Process = System.Diagnostics.Process.Start(psi)
' OutPut_String = proc.StandardOutput.ReadToEnd
'
' Tjavab.Text = OutPut_String
' Exit Sub
'er:
' Tjavab.Text = "حطا رخ داده است , احتمالا دستور وارد شده صحیح نیست" & vbNewLine & Err.GetException.Message

End Sub

[arash020]

سلام

Dim Tc As String = "cmd /c tree "
Shell(Tc, vbHide)

[Saman_12]

سلام

Dim Tc As String = "cmd /c tree "
Shell(Tc, vbHide)

سلام آرش جان خوبی...!!!
این تایپیک سال پیش ایجاد شده ه(صرفا جهت اطلاع!).بعدشم این کد شما با اونی که گذاشتم کاملا یکی هست!