Save Text file

[Stephen sjw_ost]

I am using the code below to write some lines of text into a text file so I
can keep some of my data organized. The code will open notepad, as it should,
and write to it, as it should, but I want to be able to save the file
automaticaly as well when the code finishes.
Currently I have to wait for the code to finish and then close notepad
manually, at which point I can save, but I want it all automatic.

Open notepad, write to notepad, save and close notepad.

As always, any help is appreciated.

Function writesqlini()
Dim rs As Recordset, db As Database, npad
Dim line1, line2, line3, all As String

Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM t_SQLdata")
npad = Shell("C:\WINNT\NOTEPAD.exe", 1)
AppActivate npad, True

rs.MoveFirst
Do Until rs.EOF
line1 = rs!dlrspec
line2 = rs!master & rs!ip & rs!port
line3 = rs!query & rs!ip & rs!port
' all = line1 & vbCrLf & _
' line2 & vbCrLf & _
' line3

SendKeys line1, True
SendKeys "~", True
SendKeys line2, True
SendKeys "~", True
SendKeys line3, True
SendKeys "~~", True

rs.MoveNext
Loop
SendKeys "{BKSP}{BKSP}", True

End Function

 

[Daniel Pineault]

SendKeys should be avoided at all cost. It is very unreliable...

To write to a file automatically see:

http://www.devhut.net/index.php?lang=en&pid=0000000027#WriteExtFile

I would use your Do Until to build a string variable and then write, output,
the string to a text file using the procedure listed above.
--
Hope this helps,

Daniel Pineault
http://www.cardaconsultants.com/
For Access Tips and Examples: http://www.devhut.net
Please rate this post using the vote buttons if it was helpful.