Linea de comando
Desearía saber como ejecutar una linea de comando en DOS, desde visual basic. La linea es:
C:\CreateCd -r:e c:\NombreCarpeta\*.*
En realidad se trata de un programa que graba datos en cd y que corre a través de lineas de comando de DOS. Lo que quiero conseguir es que se ejecute dicha acción sin que se abra el cmd.exe, corra el programa y se cierre el cmd.exe.
C:\CreateCd -r:e c:\NombreCarpeta\*.*
En realidad se trata de un programa que graba datos en cd y que corre a través de lineas de comando de DOS. Lo que quiero conseguir es que se ejecute dicha acción sin que se abra el cmd.exe, corra el programa y se cierre el cmd.exe.
Respuesta de drakong
1
Utiliza el comando Shell
Shell ("C:\COPY *.* A:\") ' COMO EJEMPLO
Suerte y no dudes en colsultar
Shell ("C:\COPY *.* A:\") ' COMO EJEMPLO
Suerte y no dudes en colsultar
2 respuestas más de otros expertos
Respuesta de Roberto Alvarado
1
Respuesta de pedrobjs84
1
'Te mando un ejemplo
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
'Un textbox multilinea : txt_resultado
'Un TextBox : txt_Comando
'Un commandbutton
'La referencia a Windows Script Host Object Model
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Command1_Click()
Txt_resultado.Text = ""
Txt_resultado.Text = ejecutar_Dos(Trim(Txt_comando))
End Sub
Private Sub Form_Load()
Command1.Caption = " Ejecutar DOS "
Txt_comando.Text = "dir c:\windows\system32\*.*"
End Sub
Function ejecutar_Dos(Comando As String) As String
Dim oShell As WshShell
Dim oExec As WshExec
Dim ret As String
Set oShell = New WshShell
DoEvents
' ejecutar el comando
Set oExec = oShell.Exec("%comspec% /c " & Comando)
ret = oExec.StdOut.ReadAll()
' retornar la salida y devolverla a la función
ejecutar_Dos = ret ' Replace(ret, Chr(10), vbNewLine)
DoEvents
Me. SetFocus
End Function
Con esto ejecutas tu comando y retomas el valor de respuesta, no te olvides calificarme
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
'Un textbox multilinea : txt_resultado
'Un TextBox : txt_Comando
'Un commandbutton
'La referencia a Windows Script Host Object Model
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Command1_Click()
Txt_resultado.Text = ""
Txt_resultado.Text = ejecutar_Dos(Trim(Txt_comando))
End Sub
Private Sub Form_Load()
Command1.Caption = " Ejecutar DOS "
Txt_comando.Text = "dir c:\windows\system32\*.*"
End Sub
Function ejecutar_Dos(Comando As String) As String
Dim oShell As WshShell
Dim oExec As WshExec
Dim ret As String
Set oShell = New WshShell
DoEvents
' ejecutar el comando
Set oExec = oShell.Exec("%comspec% /c " & Comando)
ret = oExec.StdOut.ReadAll()
' retornar la salida y devolverla a la función
ejecutar_Dos = ret ' Replace(ret, Chr(10), vbNewLine)
DoEvents
Me. SetFocus
End Function
Con esto ejecutas tu comando y retomas el valor de respuesta, no te olvides calificarme