Abrir un fichero TXT con worpad o notepad y que se me quede abierto maximizado en pantalla

160 views
Skip to first unread message

Juan Miguel Solis

unread,
Oct 12, 2021, 10:03:48 AM10/12/21
to Comunidad de Visual Foxpro en Español
Hola A todos

A ver si podéis echarme una mano, necesito abrir un fichero.txt que anteriormente me lo genere vacío, con wordpad o notepad y que se me quede abierto maximizado en pantalla apara que puedan añadir lo que quieran y luego ellos ya lo cierran manualmente, lo intente con RUN /! y no  fui capaz, incluso llamando a un .bat que me abriera el archivo.

Gracias de antemano si alguien ha tenido que hacer algo como esto.

UN salido

alvarocastellar

unread,
Oct 12, 2021, 10:20:15 AM10/12/21
to Comunidad de Visual Foxpro en Español
Buen día amigo. usa esta función mandando la ruta completa del documento  junto con su nombre

****************************************************
Function AbrirDocumento
Lparameters cDocumento

Declare Integer ShellExecute In "Shell32.dll" ;
INTEGER HWnd, ;
STRING lpVerb, ;
STRING lpFile, ;
STRING lpParameters, ;
STRING lpDirectory, ;
LONG nShowCmd
******************************************************
* Abre el documento  "c:\prueba.doc"  Este documento debe existir

=ShellExecute(0,"Open",(cDocumento),"","",0)
return 

Luis Maria Guayan

unread,
Oct 15, 2021, 6:52:51 PM10/15/21
to Comunidad de Visual Foxpro en Español
DECLARE INTEGER ShellExecute IN shell32.DLL ;
  INTEGER hndWin, STRING cAction, STRING cFileName, ;
  STRING cParams, STRING cDir, INTEGER nShowWin

lc = "MiArchivo.txt"

IF NOT FILE(lc)
  STRTOFILE("",lc)
ENDIF

ShellExecute(0, "OPEN", lc, "", "", 3) && maximizado

Luis María Guayán
Tucumán, Argentina
_______________________________
Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

Juan Miguel Solis

unread,
Oct 16, 2021, 10:37:46 AM10/16/21
to publice...@googlegroups.com
Si, gracias ya lo resolví , me echo una mano Alvaro Castellar, ya funciona perfectamente, gracias a todos.

Un saludo 

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/KWE1_2QvTkI/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/fad99527-1c55-4838-a8ac-cd56ccaa1443n%40googlegroups.com.
Reply all
Reply to author
Forward
0 new messages