Discussion:
Ejecutar comando de DOS sin abrir ventana de MS-DOS
(demasiado antiguo para responder)
Jesus Horacio Alonso Silva
2003-10-23 22:38:10 UTC
Permalink
como puedo ejecutar un comando desde visual fox

sin que me abra la ventana de msdos



Gracias por su ayuda
José L. Guillén M.
2003-10-23 22:10:24 UTC
Permalink
RUN/N

----------------------------------------------------------------------------------------------
"El objeto más noble que puede ocupar el hombre es ilustrar a sus
semejantes"
Simón Bolívar
"El Libertador"
Estadista y Militar Venezolano


-----------------------------------------------
PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway
-----------------------------------------------
David Amador (Davphantom)
2003-10-24 02:59:22 UTC
Permalink
Puedes hacerlo asi ...

oShell = createobject("WScript.Shell")
oShell.Run("tu comando DOS",0,.T.)

0 significa que es oculto ...

Si lo lanzas oculto, en las maquinas con W98 o W95 debes tener un pif que
tenga la marca de "cerrar al salir" si no, parecera que tu aplicación se ha
quedado bloqueada. Pero si tienes el pif te fallará en W2000 (En NT Si
funciona).

El último .t. le indica si debe esperar a terminar el RUN para continuar la
ejecución del programa. Si lo pones a .f. lanza el comando RUN y continua la
ejecución VFP
Post by Jesus Horacio Alonso Silva
como puedo ejecutar un comando desde visual fox
sin que me abra la ventana de msdos
Gracias por su ayuda
Nelson Augusto Cortés Almario
2003-10-24 06:34:00 UTC
Permalink
Hola David.

Me intereso mucho el tema de realizar la ejecución de comandos del DOS en
VFP sin mostrar la consola de DOS e intente lo que propusiste :
oShell = createobject("WScript.Shell")
oShell.Run("dir *.* /s > c:\directorio.txt",0,.T.)

Pero me salio un error :
Código de error OLE 0x80070002: Código de estado de COM desconocido.

David estoy utilizando W98 SE y VFP 6.0 SP 5

Gracias
--
Nelson Augusto Cortés Almario
Informática y tecnología
Bogotá D.C. - Colombia
Post by David Amador (Davphantom)
Puedes hacerlo asi ...
oShell = createobject("WScript.Shell")
oShell.Run("tu comando DOS",0,.T.)
0 significa que es oculto ...
Si lo lanzas oculto, en las maquinas con W98 o W95 debes tener un pif que
tenga la marca de "cerrar al salir" si no, parecera que tu aplicación se ha
quedado bloqueada. Pero si tienes el pif te fallará en W2000 (En NT Si
funciona).
El último .t. le indica si debe esperar a terminar el RUN para continuar la
ejecución del programa. Si lo pones a .f. lanza el comando RUN y continua la
ejecución VFP
Post by Jesus Horacio Alonso Silva
como puedo ejecutar un comando desde visual fox
sin que me abra la ventana de msdos
Gracias por su ayuda
Esparta Palma
2003-10-25 13:44:01 UTC
Permalink
Seguramente no esta instalado el WSH, bajalo de la Web de microsoft,
instalalo y podras ejecutarlo.
Post by Nelson Augusto Cortés Almario
Hola David.
Me intereso mucho el tema de realizar la ejecución de comandos del DOS en
oShell = createobject("WScript.Shell")
oShell.Run("dir *.* /s > c:\directorio.txt",0,.T.)
Código de error OLE 0x80070002: Código de estado de COM desconocido.
David estoy utilizando W98 SE y VFP 6.0 SP 5
Gracias
--
Apoya a Visual FoxPro usándolo legalmente
¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º
Espartaco Palma Martínez
SysOp PortalFox ( http://www.PortalFox.com )
email: ***@portalfox.com
Acapulco, Guerrero. México
---
Nelson Augusto Cortés Almario
2003-10-27 14:13:40 UTC
Permalink
Gracias Esparta, pero si tengo instalado el WSH pero me saca el error ole
cuando ejecuta la linea oShell.Run("dir *.* /s > c:\directorio.txt",0,.T.)
Post by Esparta Palma
Seguramente no esta instalado el WSH, bajalo de la Web de microsoft,
instalalo y podras ejecutarlo.
Post by Nelson Augusto Cortés Almario
Hola David.
Me intereso mucho el tema de realizar la ejecución de comandos del DOS en
oShell = createobject("WScript.Shell")
oShell.Run("dir *.* /s > c:\directorio.txt",0,.T.)
Código de error OLE 0x80070002: Código de estado de COM desconocido.
David estoy utilizando W98 SE y VFP 6.0 SP 5
Gracias
--
Apoya a Visual FoxPro usándolo legalmente
ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º
Espartaco Palma Martínez
SysOp PortalFox ( http://www.PortalFox.com )
Acapulco, Guerrero. México
---
Jaime Vasquez
2003-10-27 15:56:10 UTC
Permalink
Hola Augusto,

Tenes que hacerlo asi:

oShell = createobject("WScript.Shell")
oshell.Run("command /c dir *.* /s > c:\directorio.txt",0,.T.)
*oshell.Run("cmd /c dir *.* /s > c:\directorio.txt",0,.T.) && si estuvieras en un OS con base en NT
--
Saludos
Jaime Vasquez
Guatemala C.A.
Post by Nelson Augusto Cortés Almario
Gracias Esparta, pero si tengo instalado el WSH pero me saca el error ole
cuando ejecuta la linea oShell.Run("dir *.* /s > c:\directorio.txt",0,.T.)
Post by Esparta Palma
Seguramente no esta instalado el WSH, bajalo de la Web de microsoft,
instalalo y podras ejecutarlo.
Post by Nelson Augusto Cortés Almario
Hola David.
Me intereso mucho el tema de realizar la ejecución de comandos del DOS
en
Post by Esparta Palma
Post by Nelson Augusto Cortés Almario
oShell = createobject("WScript.Shell")
oShell.Run("dir *.* /s > c:\directorio.txt",0,.T.)
Código de error OLE 0x80070002: Código de estado de COM desconocido.
David estoy utilizando W98 SE y VFP 6.0 SP 5
Gracias
--
Apoya a Visual FoxPro usándolo legalmente
¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º
Espartaco Palma Martínez
SysOp PortalFox ( http://www.PortalFox.com )
Acapulco, Guerrero. México
---
Nelson Augusto Cortés Almario
2003-10-28 16:15:25 UTC
Permalink
Gracias Jaime, de esta forma funciono perfecto.
--
Nelson Augusto Cortés Almario
Informática y tecnología
Bogotá D.C. - Colombia

Email : ***@tutopia.com
***@iespana.es

"Jaime Vasquez" <***@itelgua.com> escribi� en el mensaje news:e%***@tk2msftngp13.phx.gbl...
Hola Augusto,

Tenes que hacerlo asi:

oShell = createobject("WScript.Shell")
oshell.Run("command /c dir *.* /s > c:\directorio.txt",0,.T.)
*oshell.Run("cmd /c dir *.* /s > c:\directorio.txt",0,.T.) && si
estuvieras en un OS con base en NT
--
Saludos
Jaime Vasquez
Guatemala C.A.
Post by Nelson Augusto Cortés Almario
Gracias Esparta, pero si tengo instalado el WSH pero me saca el error ole
cuando ejecuta la linea oShell.Run("dir *.* /s >
c:\directorio.txt",0,.T.)
Post by Nelson Augusto Cortés Almario
Post by Esparta Palma
Seguramente no esta instalado el WSH, bajalo de la Web de microsoft,
instalalo y podras ejecutarlo.
Post by Nelson Augusto Cortés Almario
Hola David.
Me intereso mucho el tema de realizar la ejecución de comandos del DOS
en
Post by Esparta Palma
Post by Nelson Augusto Cortés Almario
oShell = createobject("WScript.Shell")
oShell.Run("dir *.* /s > c:\directorio.txt",0,.T.)
Código de error OLE 0x80070002: Código de estado de COM desconocido.
David estoy utilizando W98 SE y VFP 6.0 SP 5
Gracias
--
Apoya a Visual FoxPro usándolo legalmente
ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º
Espartaco Palma Martínez
SysOp PortalFox ( http://www.PortalFox.com )
Acapulco, Guerrero. México
---
Nelson Augusto Cortés Almario
2003-10-28 17:00:43 UTC
Permalink
Jaime, una ultima pregunta, que sucede si por alguna razon en el comando de
DOS que esta ejecutando en el shell se produce un error como error de
sintaxis, que valor retorna el shell, o se queda pegado?
--
Nelson Augusto Cortés Almario
Informática y tecnología
Bogotá D.C. - Colombia

Email : ***@tutopia.com
***@iespana.es

"Jaime Vasquez" <***@itelgua.com> escribi� en el mensaje news:e%***@tk2msftngp13.phx.gbl...
Hola Augusto,

Tenes que hacerlo asi:

oShell = createobject("WScript.Shell")
oshell.Run("command /c dir *.* /s > c:\directorio.txt",0,.T.)
*oshell.Run("cmd /c dir *.* /s > c:\directorio.txt",0,.T.) && si
estuvieras en un OS con base en NT
--
Saludos
Jaime Vasquez
Guatemala C.A.
Post by Nelson Augusto Cortés Almario
Gracias Esparta, pero si tengo instalado el WSH pero me saca el error ole
cuando ejecuta la linea oShell.Run("dir *.* /s >
c:\directorio.txt",0,.T.)
Post by Nelson Augusto Cortés Almario
Post by Esparta Palma
Seguramente no esta instalado el WSH, bajalo de la Web de microsoft,
instalalo y podras ejecutarlo.
Post by Nelson Augusto Cortés Almario
Hola David.
Me intereso mucho el tema de realizar la ejecución de comandos del DOS
en
Post by Esparta Palma
Post by Nelson Augusto Cortés Almario
oShell = createobject("WScript.Shell")
oShell.Run("dir *.* /s > c:\directorio.txt",0,.T.)
Código de error OLE 0x80070002: Código de estado de COM desconocido.
David estoy utilizando W98 SE y VFP 6.0 SP 5
Gracias
--
Apoya a Visual FoxPro usándolo legalmente
ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º
Espartaco Palma Martínez
SysOp PortalFox ( http://www.PortalFox.com )
Acapulco, Guerrero. México
---
Jaime Vasquez
2003-10-28 20:16:30 UTC
Permalink
No, no regresa ningun error, simplemente no ejecuta la instruccion y regresa.
--
Saludos
Jaime Vasquez
Guatemala C.A.
Post by Nelson Augusto Cortés Almario
Jaime, una ultima pregunta, que sucede si por alguna razon en el comando de
DOS que esta ejecutando en el shell se produce un error como error de
sintaxis, que valor retorna el shell, o se queda pegado?
--
Nelson Augusto Cortés Almario
Informática y tecnología
Bogotá D.C. - Colombia
Hola Augusto,
oShell = createobject("WScript.Shell")
oshell.Run("command /c dir *.* /s > c:\directorio.txt",0,.T.)
*oshell.Run("cmd /c dir *.* /s > c:\directorio.txt",0,.T.) && si
estuvieras en un OS con base en NT
--
Saludos
Jaime Vasquez
Guatemala C.A.
Post by Nelson Augusto Cortés Almario
Gracias Esparta, pero si tengo instalado el WSH pero me saca el error ole
cuando ejecuta la linea oShell.Run("dir *.* /s >
c:\directorio.txt",0,.T.)
Post by Nelson Augusto Cortés Almario
Post by Esparta Palma
Seguramente no esta instalado el WSH, bajalo de la Web de microsoft,
instalalo y podras ejecutarlo.
Post by Nelson Augusto Cortés Almario
Hola David.
Me intereso mucho el tema de realizar la ejecución de comandos del DOS
en
Post by Esparta Palma
Post by Nelson Augusto Cortés Almario
oShell = createobject("WScript.Shell")
oShell.Run("dir *.* /s > c:\directorio.txt",0,.T.)
Código de error OLE 0x80070002: Código de estado de COM desconocido.
David estoy utilizando W98 SE y VFP 6.0 SP 5
Gracias
--
Apoya a Visual FoxPro usándolo legalmente
¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º
Espartaco Palma Martínez
SysOp PortalFox ( http://www.PortalFox.com )
Acapulco, Guerrero. México
---
Nelson Augusto Cortés Almario
2003-10-28 17:05:06 UTC
Permalink
Otra pregunta Jaime, que significa el /c luego de la palabra command?
--
Nelson Augusto Cortés Almario
Informática y tecnología
Bogotá D.C. - Colombia

Email : ***@tutopia.com
***@iespana.es

"Jaime Vasquez" <***@itelgua.com> escribi� en el mensaje news:e%***@tk2msftngp13.phx.gbl...
Hola Augusto,

Tenes que hacerlo asi:

oShell = createobject("WScript.Shell")
oshell.Run("command /c dir *.* /s > c:\directorio.txt",0,.T.)
*oshell.Run("cmd /c dir *.* /s > c:\directorio.txt",0,.T.) && si
estuvieras en un OS con base en NT
--
Saludos
Jaime Vasquez
Guatemala C.A.
Post by Nelson Augusto Cortés Almario
Gracias Esparta, pero si tengo instalado el WSH pero me saca el error ole
cuando ejecuta la linea oShell.Run("dir *.* /s >
c:\directorio.txt",0,.T.)
Post by Nelson Augusto Cortés Almario
Post by Esparta Palma
Seguramente no esta instalado el WSH, bajalo de la Web de microsoft,
instalalo y podras ejecutarlo.
Post by Nelson Augusto Cortés Almario
Hola David.
Me intereso mucho el tema de realizar la ejecución de comandos del DOS
en
Post by Esparta Palma
Post by Nelson Augusto Cortés Almario
oShell = createobject("WScript.Shell")
oShell.Run("dir *.* /s > c:\directorio.txt",0,.T.)
Código de error OLE 0x80070002: Código de estado de COM desconocido.
David estoy utilizando W98 SE y VFP 6.0 SP 5
Gracias
--
Apoya a Visual FoxPro usándolo legalmente
ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º
Espartaco Palma Martínez
SysOp PortalFox ( http://www.PortalFox.com )
Acapulco, Guerrero. México
---
Jaime Vasquez
2003-10-28 20:13:55 UTC
Permalink
Hola Nelson,

el parametro /c le dice al Command.com que ejecute la instruccion dir y luego termine, con lo que el control regresa a tu programa
--
Saludos
Jaime Vasquez
Guatemala C.A.
Post by Nelson Augusto Cortés Almario
Otra pregunta Jaime, que significa el /c luego de la palabra command?
--
Nelson Augusto Cortés Almario
Informática y tecnología
Bogotá D.C. - Colombia
Hola Augusto,
oShell = createobject("WScript.Shell")
oshell.Run("command /c dir *.* /s > c:\directorio.txt",0,.T.)
*oshell.Run("cmd /c dir *.* /s > c:\directorio.txt",0,.T.) && si
estuvieras en un OS con base en NT
--
Saludos
Jaime Vasquez
Guatemala C.A.
Post by Nelson Augusto Cortés Almario
Gracias Esparta, pero si tengo instalado el WSH pero me saca el error ole
cuando ejecuta la linea oShell.Run("dir *.* /s >
c:\directorio.txt",0,.T.)
Post by Nelson Augusto Cortés Almario
Post by Esparta Palma
Seguramente no esta instalado el WSH, bajalo de la Web de microsoft,
instalalo y podras ejecutarlo.
Post by Nelson Augusto Cortés Almario
Hola David.
Me intereso mucho el tema de realizar la ejecución de comandos del DOS
en
Post by Esparta Palma
Post by Nelson Augusto Cortés Almario
oShell = createobject("WScript.Shell")
oShell.Run("dir *.* /s > c:\directorio.txt",0,.T.)
Código de error OLE 0x80070002: Código de estado de COM desconocido.
David estoy utilizando W98 SE y VFP 6.0 SP 5
Gracias
--
Apoya a Visual FoxPro usándolo legalmente
¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º
Espartaco Palma Martínez
SysOp PortalFox ( http://www.PortalFox.com )
Acapulco, Guerrero. México
---
Nelson Augusto Cortés Almario
2003-10-29 15:22:40 UTC
Permalink
Gracias Jaime, me fue bastante util tu orientación.

Muchas gracias
--
Nelson Augusto Cortés Almario
Informática y tecnología
Bogotá D.C. - Colombia

Email : ***@QUITA ESTOtutopia.com
***@QUITA ESTOiespana.es

"Jaime Vasquez" <***@itelgua.com> escribi� en el mensaje news:%***@TK2MSFTNGP11.phx.gbl...
Hola Nelson,

el parametro /c le dice al Command.com que ejecute la instruccion dir y
luego termine, con lo que el control regresa a tu programa
--
Saludos
Jaime Vasquez
Guatemala C.A.
Post by Nelson Augusto Cortés Almario
Otra pregunta Jaime, que significa el /c luego de la palabra command?
--
Nelson Augusto Cortés Almario
Informática y tecnología
Bogotá D.C. - Colombia
Hola Augusto,
oShell = createobject("WScript.Shell")
oshell.Run("command /c dir *.* /s > c:\directorio.txt",0,.T.)
*oshell.Run("cmd /c dir *.* /s > c:\directorio.txt",0,.T.) && si
estuvieras en un OS con base en NT
--
Saludos
Jaime Vasquez
Guatemala C.A.
Post by Nelson Augusto Cortés Almario
Gracias Esparta, pero si tengo instalado el WSH pero me saca el error ole
cuando ejecuta la linea oShell.Run("dir *.* /s >
c:\directorio.txt",0,.T.)
Post by Nelson Augusto Cortés Almario
Post by Esparta Palma
Seguramente no esta instalado el WSH, bajalo de la Web de microsoft,
instalalo y podras ejecutarlo.
Post by Nelson Augusto Cortés Almario
Hola David.
Me intereso mucho el tema de realizar la ejecución de comandos del DOS
en
Post by Esparta Palma
Post by Nelson Augusto Cortés Almario
oShell = createobject("WScript.Shell")
oShell.Run("dir *.* /s > c:\directorio.txt",0,.T.)
Código de error OLE 0x80070002: Código de estado de COM desconocido.
David estoy utilizando W98 SE y VFP 6.0 SP 5
Gracias
--
Apoya a Visual FoxPro usándolo legalmente
ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º
Espartaco Palma Martínez
SysOp PortalFox ( http://www.PortalFox.com )
Acapulco, Guerrero. México
---
Continúe leyendo en narkive:
Loading...