Create and SHOW new text document

[thersh4114]

I know this is a stupid question but I can't figure out how to do it. I have an application that allows the user to look at a text box with results from a query in it.

I want to give the user the ability to create a text document with the info in it. I have searched the forum and can't find an answer.

I want to know how to create the document, add the info AND THEN SHOW IT SO THE USER WILL THEN SEE IT IMMEDIATELY.

Please help.

[Mega_Man]

Add a reference to the Microsoft Word 8 object library
and then add the following

Dim app As Word.Application
Set app = CreateObject("Word.Application")
app.Visible = True
app.Documents.Add
app.Selection.TypeText Text1.Text ' Your text box info

Mega.

[thersh4114]

Thanks mega,

I am familar with creating a word doc. though. I am trying to create a txt file so that it will work on any system. I can create the file but I want the user to see it immediately.

Any ideas?

[vbgladiator]

Try,

Shell "Notepad.exe  filename", vbNormal

[Mega_Man]

Open "c:\textfile.txt" For Output As #1
Write #1, Text1.Text ' Your text box
Close #1
Shell "Notepad.exe  c:\textfile.txt", vbNormal

This is a very quick way. I would personally use the FileSystemObject to do it properly but this will achieve what you want.

Mega.