Dave, this is awesome! You have shown me some neat tools and I will use them on other apps as well.

Thanks so much, Brad.


>Try this:
>
>

>*!* Begin Code Sample
>
>PUBLIC x
>x = CREAT([oForm1])
>x.SHOW
>
>DEFINE CLASS oForm1 AS FORM
>	AUTOCENTER = .T.
>	ADD OBJECT button1 AS BUTTON
>	button1.LEFT = 150
>	button1.TOP = 200
>	button1.HEIGHT = 30
>	button1.CAPTION = [Quit]
>	ADD OBJECT CreatFileButton AS CreateFile
>	CreatFileButton.AUTOSIZE = .T.
>	CreatFileButton.LEFT = 100
>	CreatFileButton.TOP = 75
>	CreatFileButton.CAPTION = [Click to create the qlp file.]
>	ADD OBJECT txtbox1 AS TEXTBOX
>	txtbox1.VALUE = [54990]
>	ADD OBJECT txtbox2 AS TEXTBOX
>	txtbox2.VALUE = [22]
>	txtbox2.TOP = 25
>ENDDEFINE
>
>DEFINE CLASS BUTTON AS COMMANDBUTTON
>	CANCEL = .T.
>	PROC CLICK
>		RELEASE THISFORM
>	ENDPROC
>ENDDEFINE
>
>DEFINE CLASS CreateFile AS COMMANDBUTTON
>	PROC CLICK
>		STRING = ALLTRIM(THISFORM.txtbox1.VALUE) + CHR(10) + ;
>			ALLTRIM(THISFORM.txtbox2.VALUE)
>		STRTOFILE(STRING,[MyFile.qlp])
>		MODI FILE MyFile.qlp NOWAIT
>	ENDPROC
>ENDDEFINE
>
>*!* End Code Sample
>

>
>>I have a new application that needs to write the information showing in txt boxes on the form to a text file.
>>
>>example;
>>
>>txtbox1 shows part "54990"
>>txtbox2 shows quantity "22"
>>
>>each must be printed to a separate line, and the file must be created in a queue subdirectory with a .qlp extension(not a special file type just a name that another program will recognize)
>>
>>Thanks ahead of time.
>>
>>Brad.