Trying to start a second line ( ie use of enter key) in an output file
 

Hello

I am trying to write to a file but cannot use the enter key to start a new line. I have tried char(10) and it puts a
square box. I tried every chr in a loop and the output file has no characters on the second line, therfore no enter
key. I have also tried vbkeyreturn and does nothing.

Anyone know how to work around this little problem?

Heres my code ( its been simplyfied)

Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fs, f, ts
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CreateTextFile "c:\cd.asc" 'Create a file
Set f = fs.GetFile("c:\cd.asc")
Set ts = f.OpenAsTextStream(ForWriting, TristateFalse)
ts.write "hello"
ts.write Chr(10)
ts.write "hello"
ts.Close

Thanks in advance

Mike

Trying to start a second line ( ie use of enter key) in an output file
 

Use vbCrLf

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Susan Hayes" wrote in message
...
Hello

I am trying to write to a file but cannot use the enter key to start a new
line. I have tried char(10) and it puts a
square box. I tried every chr in a loop and the output file has no
characters on the second line, therfore no enter
key. I have also tried vbkeyreturn and does nothing.

Anyone know how to work around this little problem?

Heres my code ( its been simplyfied)

Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fs, f, ts
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CreateTextFile "c:\cd.asc" 'Create a file
Set f = fs.GetFile("c:\cd.asc")
Set ts = f.OpenAsTextStream(ForWriting, TristateFalse)
ts.write "hello"
ts.write Chr(10)
ts.write "hello"
ts.Close

Thanks in advance

Mike