VB y DOS

17/07/2003 - 00:09 por SHARK | Informe spam
esposible crear un .exe en el q pongas en un textbox un
comandos (del dos) y q en otro tbox t de el resultado??? si
el posible m pueden dejar el vodigo (mejor explicado, por
favor ... :_))

Preguntas similare

Leer las respuestas

#1 JCastro
17/07/2003 - 19:04 | Informe spam
experimenta con esto:
shell form1.text1.text+" >c:ota.txt"

open "c:ota.txt" for input as #1 ' <-- old fashioned
line input #1,a
form1.text2.text=a
close #1

(text2 puede ser multilinea para que veas si dio mas de 1 linea de
resultado)

"SHARK" escribió en el mensaje
news:04dd01c34be6$f800d030$
esposible crear un .exe en el q pongas en un textbox un
comandos (del dos) y q en otro tbox t de el resultado??? si
el posible m pueden dejar el vodigo (mejor explicado, por
favor ... :_))
Respuesta Responder a este mensaje
#2 Leonardo Azpurua
18/07/2003 - 00:24 | Informe spam
"JCastro" <eng3d(arroba)softhome.net> escribió en el mensaje
news:
experimenta con esto:
shell form1.text1.text+" >c:ota.txt"



Casi

El redireccionamiento (">") es provisto por el interpretador de comandos, es
decir COMMAND.COM en Win9x o CMD.EXE en NT/XP.

No lo probé en todos los sistemas, pero va más por este lado:

Shell environ("COMSPEC") & " /C " & Text1.Text & " > Test", vbHide

el resto si va como describe JCastro.

Si el cuadro de destino fiese multiline, como él sugiere, el código
adicional quedaría así:

open "c:ota.txt" for input as #1 ' <-- old fashioned
Do while not eof(1)
line input #1,a
form1.text2.SelText = a & vbCrLf
form1.text2.SelStart = Len(form1.text2.Text)
Loop
close #1



¿Por qué "old fashioned"?

Salud!

Leonardo
MS MVP
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida